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TITLE MTUS3%•REV G» MIME TRACK PE/NRZI MAG TAPE T6v (SAP) 


description; 

THIS T6V PROGRAM VERIFIES PROPER OPERATION uF A LFVPL 6 NINE TRACK 
MAGNETIC TAPt SUBSYSTEM. IT PROVIDES A FIRS t LEVEL OF DIAGNOSIS 
WHEN FAILURES ARE DETECTED. AND MAKE* A SET OF FACILITIES AVAILABLE 
TO AID IN MOKE EXTENSIVE PROBLEM INVESTIGATIONS. 

thl subsystem items supported by this program are: 


MTC9I01 

MTM9I02 

MTC9102 

MTU9I04 
MTU9I05 
MTU9IG9 
MTU9U0 
MT U9114 
MTU9115 


hAG TAPE controller 
9 TRACK NRZI PAC (ADAPTER) 

9 TRACK COMTROLLeR AND ADAPTER 


TRACK 45 
TRACK 75 
TRACK 45 
TRACK 75 
TRACK 45 
TRACK 75 


IPS BUG 
IPS BOO 
IPS bQO 
PS BQO 


NRZI DRlvE 
NKZ1 DRIVE 
NKZI/I6U0 BPI 
NRZI/I60u BPI 


IPS 1600 BPI PE DRIVc. 
IPS 1600 BPI PE DklVt. 
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ORIGINAL RELEASE 


lAF mode added 

MLCP LIBRARY ADDED 
PE TAPE ADDED 


**************************** ******************************************** 
* 

* THIS DOCUMENT AND THE INFORMATION CONTAINED 

* thlkein is confidential and proprietary to and thf 

* EXCLUSlvt PROPERTY OF HONEYWELL INFORMATION 

* SYSTEMS INC. IT IS MADE AVAILABLE ONLY TO HONEy- 

* WELL AUTHORIZED REClPltNTS FOR THE IR USE SQlELY IN 

* THE MAINTENANCE AND OPERATION OF HGnEYWEll 

* PRODUCTS. THIS DOCUMENT AND INFORMATION nUST BF 

* maintained in strictest confidence; it mujt not 

* Be REPRODUCED IN whole Ok in part; and n shall 

* NUT bL DISCLUSED TO ANY OTHER PARTY WITHOuT THF 

* PRIOR WRITTEN CONSENT OF HONEYWELL. 

* 

************************************************************************ 
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0000 5 *+ 
000055 
000U56 
000057 
00005b 
0G0u59 
000060 
000061 
0U0062 
U00U63 
000064 
000065 
000066 
000067 
000066 
000069 
000070 
000071 
000072 
000073 
0000 74 
000075 
000076 
000077 
000076 
000079 
000080 
000061 
000082 
000083 
000064 
00008 3 
000086 
00008 l 
000U86 
000U89 
000090 
G00u9i 
000094 
000U93 
000U94 
000093 
00uu9o 
000097 
000096 
000099 
000100 
000101 
GOOiOc 
000103 
000104 
000105 
0O0106 
000107 
000106 
000109 
000110 
00O111 
000112 
000113 
000114 
000115 
000116 
000117 
OOOilb 
000119 
000120 
000121 
000124 
000123 
000124 
000123 
000126 
000127 
.000128 
000129 
000130 
000131 
000134 
000133 
000134 
000133 
000136 
000137 
000138 
000139 
000140 
000141 
000144 
000143 
000144 
000145 
000l4o 
000147 
000146 
000149 
000150 
000151 
000152 
000153 
0O0154 
000155 
000156 
O00157 
00015b 
000159 
000160 
000161 
000162 
000163 
000164 
000163 
000166 


/*********************************************************************** 


PROGRAM PREPARATION: 

THE ROOT SUURCE OP THIS PROGRAM* AFTER THE ADDITION OP APPROPRIATE 
TITLE ANU END STATEMENTS, wAS PROCESSED bY THE HOST RESIDENT ASSEMBLER 
TO CREATE EITHER SHORT OR LONG ADDRESS FORM (SAP OR LAP) OBJECT TEXT 
AND LISTING. THE OBJECT TEXT wAS PUR I HER PRuCESSto BY THE HOST RESIotNT 
LINKER USING THE APPROPRIATE CONSOLE ZVSLIb LIBRARY TO CREATE A PUNCH 
SEGMENT CONTAINING AN cXECUTAoLE MODULE. THq ASSEMBLY LISTING WAS 
AUGMENTeU WITH CROSS REFERENCE OAT A PLUS THt LOAD MAP PROM THE LINKER 

tu create a list segment. 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

# 

* 

* 

* 

* 

* 

* program distribution; 

* 

* 

* 

* 

* 


ROOT 

name MT 0X3 
DOCUMENT 60133890-007 


SAP 

MIUS3 

60131897-007 


lAF 
nT UL3 

oO133^89-007 


THE ELEMENTARY ITEMS SjBMITTED TO THE 16V PROGRAM DISTRIBUTION CENTER 
WERE THE EXECUTABLE LINKED IMAGES OP MTUS3 mND MjuL3 ON DISKETTE* 

AND MAGNETIC TAPE IMAGES OF THE AUGMENTED LaSTINgs. 


REPRODUCTIONS UP THE EXE 


.I NktD IMAGES MAy BE AS CARD DECKS 


OR AS A MEMBER OP A MULTIPLE MEMBER PILE. IN THE MOST PREQUENTCASE 
THEY WILL BE FOUND AS MEMBER "SM" (SAF) OR "LM" (LAF) WITHIN FILE 
”PROOF III" OP A DISKET1E VOLUME ENTITLED "DiAGS". 

DISTRIBUTION UP THE LISTINGS* WHICH SHOULD uE AVAILABLE IP ANY COMPLEX 
MAINTENANCE UR REPAIR IS TO BE PERFORMED, Ig NORMALLY MADE AS A 
PRINTED COPY. 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* routine demonstration: 

* 

* A MINIMUM SATISFACTORY TEST FOR NORMAL OPERATION MAY BE 

* OBTAINED BY SELECTING »G" MODE OPERATION FOR EACh DEVICE PRESENT 

* AND PERMITING THE PROGRAM TU RUN AS MANY PAuSES AS tHlRE ARE 

* DEVIClS (ONE PASS PER DEVICE). THIS WILL CH<_CK All BUT THE 

* E-U-T LOGIC. 

* 

* 

* MAIN MEMORY REQUIREMENT; 

* 

* 

* 

* 

* 

****************** ft ***************************************************** 

* NOTE; 

* ALL REFERENCES TO MEMORY LOCATIONS* RANGES, FILE AND RECORD COUNTS 

* ARE IN hEXADtCIMAL NUTATION. REFERENCES wITnlN ThF LISTING TO 

* INTERRUPT LEVELS AND ERROR AND PASS COUNTS mRE IN DECIMAL NOTATION. 

* 

* OPERATION; 

LOAD THE PROGRAM AND START (OR RESTART) AT LOCATION 
0100 HEX. IP A CONSOLE IS PRESENT* VERIFY CORRECT 
PROGRAM IdENIIPICATION FROM THE LISTING OF THE I/O 
EQUIPMENT BY CHANNEL NUMBER AND IU-CUDE. Th±S LISTING WILL 
BE OMITTED ON RESTARTS. THE LISTING WILL BE FOLLOWED bY A 
SUMMARY uF TmE ERROR REPORT DATA FORMAT. 


THIS PROGRAM REQUIRES I6K WORDS OF MAIN MEMuRY And WILL USE 
ALL OF AVAILABLE MEMORY THROUGH 64K WORDS I,* SAF MODE OR 
ONE MILLiON WORDS IN LAF MODE. 


the console search rules are; find the console with the lowest channel 
number connected thru an mdc controller, if there 15 no console on an 

MDC, ThLN SEARCH FOR A TERMINAL WITH THE HIGHEST CHANNEL NUMBER ASSIGNED 
TO AN ACLA AuAPTtK UN AN MLC CONTROLLER. I t NO ASYNC ADAPTER IS FuUND, 

then gu to the fuel control Panel. 

THtkt ARl THREE CONSOLE CHANNEL OPTIONS DETlRMINeD BY THE VALUE OF LO¬ 
CATION "2VSTTY". 

IF ZVSTTY EQUALS (0000), SEARCH FOR A CONSOLE. 

IF 4VSTTY EQUALS (FFFF)* ASSUME THEkt IS NO CONSOLE. 

IP ZVSTTY EQUALS NEITHER (0000)* NOR (FFPF)* THEN IT 15 THE CONSOLE CHAN- 
NEL NUMBER. NOTE; DEFAULT IS TO SEARCH FuR A CONSOLE. 

ALL CONSOLE 1/0 IS EVEN PARITY. IF CONSOLE IS UN MLC* IT MUST BE ASYNC 
AND THE BAUD RATE SET AT 1200 TO MATCH THE PROGRAM SUPPLIED RATE. IF IT 
IS NECESSARY TO CHANGE THE PROGRAM BAUD RAT u « THEN THE NEW BAUD RATE 
CODt SHuULD BE PUT INTO LOCATION "ZVSBUD" In HEX. THE TERMINAL BAUD RATE 
MUST BE SET TO MATCH THIS NEW BAUD RATE. THE CORRECT HEX VALUE MAY BE 
OBTAINED FROM THE FOLLOWING TABLE. 


BAUD RATE TABLE 


ACLA I.D. 
BAOo-RAT l 
30 
7 5 
UO 
134 
150 
200 
300 
600 
900 
1050 
1200 
1800 
2000 
2400 
3600 
4800 
7200 
9600 
19200 


(3118* 2118* 2110) (2108) 


0 
1 
2 

3 

4 

5 

6 

7 

8 

10 (A) 


11 

12 


(B) 

(C) 


13 (D) 

l4~(E) 
15 (F) 


1 

2 

3 

4 

5 

*6 

7 

8 

*" 9 " 

10 (A) 

11 (B) 
1Z (C) 

13 (D) 

14 (E) 

15 (F) 
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00016/ 
OOOI 60 
000169 
000170 
000171 
00017c 
000173 
00017* 
000176 
00017o 
000177 
000176 
000 l7 V 
000160 
000161 
000182 
000183 
00018* 
OuO18 6 
000166 
000187 
000186 
000189 
000190 
000191 
00019c 
000193 
00019* 
000196 
000196 
000197 
000196 
000199 
000 c ou 
000201 
000 c 02 
000203 
OOOcO* 
OOOcOi) 
000206 
000207 
OOO 2 O 6 
000c09 
OOOclO 
000c11 
000c1c 
000213 
OOOcl* 
uOOc15 
000216 
000217 
000c i 6 
000c 19 
00022O 
000c2 I 
000c 2 c 
000 c 2 6 
000c24 
000223 
000c26 
OOOc27 
000226 
0U0229 
UOOC 3U 
000c 31 
000c 3c 
000233 
00023* 
000c 3 6 
000c 36 
000237 
000236 
000239 
0002*0 
QOOcAl 
000c*c 
000c *3 
000c** 
000c*6 
000c*6 
0002*7 
0002*6 
0002*9 
000c 30 
000c 31 
000232 
000233 
00023* 
000c 3 3 
000c36 
000c3 7 
000c 56 
000c 59 
000260 
000c61 
OOOcGc 
000c63 
00026* 
000263 
0u0c66 
000267 
000c 66 

000269 
00027O 
000271 
00027c 
000c 73 
00027* 
000275 
000276 
000c77 
000c 7 b 
000279 


TO MAkE ANY uF THE ABOVE CHANGES, LOAD AND HALT THE PROGRAM BEFORE EX¬ 
ECUTION. INSERT CHANGE THEN EXECUTE. MEMOkY LOCATIONS OF «ZV$TTY" AND 
"ZVSbUD" MAY BE FOUND IN MAP AT END OF LISTING. 

CONSULT LEVEl- 6 TbV MANUAL "AW9A" FOR DETAIlS ON HOW TO LOAD THE TESTS. 

THL FULluwINg IS A TYPICAL RESULT OF LOADING THE PROGRAM 
AND STARTING TO RUN. 


MTUX3 REV X* 
ZVSlIB REV. 
2V$AF= X 


9-TK PE/NRZI MAG TAPE TEST, DO MMM YY 
X.X 


WDT 
CHAim 
0* 0 0 
0*80 
0500 
1*0U 
1*80 
*580 


DtVC 
DSK 1 
DSKT 
CONS 
MT-9 
Ml-9 
CDR 


ID 

2010 
2010 
2019 
20*6 
20*6 
2008 
OOOOXXXX 


MEMuKY LOW .. 

MEMORY HIGH 00007FFF 32K 

THE FIRST EXECUTION OF THE PROGRAM WILL ASK THE QUESTION: 

PGWlR FREQ* He ?: 60 C/K (ON A 6/30 SYSTEM ONLY) 

RtSPCmD WITH THE POWER LINE FREQUtNCY IN HEkTZ* 
usually 60 IN the UNITED STATES AND 30 ELSEWHERE. THt 
PROGRAM wILL THEN CALIBRATE TmE CPU CLOCK A^AINSj THE 
REAl-TIML-CLuCK. DEFAULT VALUE IS 60 HZ. WilH A 6/*0* 

THIS uUeSTIQh WILL NOT BE ASKED. 

THE PROGRAM WILL then ask; 

CHANNEL ?; 1*00 C/R 
DRIVE "0" IS NRZI 
DRIVE "1" IS PE 
DRIVt "3" IS OFF LINE 
BDCa FIRMWARE REV XX 

A DtVlCt wHUH dues nut respond WILL Bt OMITTED from the above 
ktPURT (it. uRIVE "2"). 

THE RtSPuNSE SHOULD bE THE FOUR DIGIT HEX CmAnNEL NUMdER ASSIGNED 
TU ANY DlVICl IN THE SUBSYSTEM. THE PROGRAM WILL USE 
The CUNTROLLlR PORTION UF THE CHANNEL NUMBEk TO ADDRESS 
ALE DtViCES. DtFAULT VALUE IS HEX 1*00. "NRtI", "PE" UR "OFF LINE” 
INDICATIONS uHOULD bE VERIFIED BY THt UPERA|OR. 

WHEN CHaNGINvi ONE OR MORE DRIVES FROM NRZI TO P.E. OR VlCt- 
VEKSA* MUDE ”I" (SEE bELOW) MUST BE KE-RUN. THE RESPONSE 

to "Channel ?;" may then be a »c/r". 

THE AbOvt SEQUENCE WILL ONLY OCCUR uN THE FiRST START AFTER 
A FRESH LOAD OF THE PROGRAM. SUBSEQUENT RESTARTS WILL PICK UP 
AT THE QUESTION "NEXT ?" WHICH 15 EXPLAINED BtLO W . 

THt PROGRAM WILL THEN RESPOND WlTh THE FULLuWlNG; 

MO Ml M2 M3 NEXT ?; MX*MY*MZ.•.C/R 

WHEkE; MO Ml M2 H3 ARE THt MODES CURRENTLY SELECTED FOR 
TESTING UN UNITS 0, 1, 2 AND 3 RESkECTIVELY. 

(SEl "MODES" BELOW.) 

MX* MY* M2...ETC. ARE THE MODES WhiCH THE OPERATOR WISHES 
TO KUN UN UNITS X* Y, Z...EIC. 


************************************************************************ 

* MODES; 


THt PROGRAM MAY OPERATE IN ANY ONE OF THt FuLLOWjNG MODES; 

t - REPORT ERRORS AS T HtY OCCUR 
F - ENTER NEW PILE LIMIT 

1 - ID TEST, RECONFIGURE CHANNEL ADDRESSES 
P - PRINT SUMMARY UF FIRST TEN ERRORS 

S - CAuCtt ALL ENTRIES, RESTART AT *luO», ENABLE ERRORS. 
X - SUPPRESS ERROR REPORTS 

2 - QLT TEST MUDE 

THE AdOvE ARl NOT SPECIFIC TO ANY UNIT AND AS SUCH THEY DU 
NUT APPlaK In THE "MO Ml M2 M3" MESSAGE PRECEDING "NEXT ?;". 

AN - AUTOMATIC TEST MODE, UNIT "N" 

DN - DEdUG MODE, uNIT "N" 

QN - QUICK VERSION OF "AN" 

KN - READ AND CHECK PRE-RECORDED TAPE, UNIT »N« 
wN - WRITE-ONLY FjLL TAPt, UNIT "N" 

-N - DELETE UNIT "N" FROM TEST PROCEDUkE LIST 

THESE MgqES kEFER TO A PARTICULAR UNIT* 0-3, AS DEScPI^tD 
UNDtK "uPLkAfI ON” ABOVE* FOLLOWING "NEXT ?:«. MODE "D" IS 
EXCLUSIVE TO UNIT "N" AND NO uTHER UNITS CAn BE 
SELECTED SIMuElANtOUSLY. WHtN RETURNING TO "NEXT FROM 

MoDt "D", "DN" WILL NOT APPtAk IN THt REPORT OF THE SELECTED 
MUDtS. 

MODtS "A" "Q" ”R" AND "W" AkE COMPAf1bLE WITH EAcH OTHER 
AND MAY BE RuN CUNCUKRtNTLY. IN THIS EVENT* A SUb-TEST WILL 
KUN UN uNE U.mII. WHEN COMPLLTtD* THE PROGRAM WILL DETERMINE 
IF Tht NEXT UNIT HAS BttN StLECTED FUR TESTiNG. IF IT HAS* 

THE NEXT SUB-1 ESI SCHEDULED FOR THAT UNIT WiLE b£ RUN. 

(SlE SUd-TESIS LISTED UNDER "MODE A, USE". utLOW.) 

AUDITIUNAL UNITS MAY Bt SELECTED, CHANGED UK DE-SFLECTtD 
AT ANY TIME WITHOUT AFFECTING THE OVtRALt SCHEDULING OF 
THt ORIGINAL TEST. (SEc EXCEPTION IN FOLLOWING PARAGRAPH.) 

A TEST SEQUENCE MAY BE INTERRUPTED 1U ALTER OR DELETE ONE 
UF THE SELECTED MODES SR ADD A NEw MODE BY STRIKING THt CON- 
SGLt BKtAK KtY. INTERRUPTING AN "A2" FOR EXAMPLE, AND RE- 
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0UU48O 
000481 
000484 
000483 
0G048A 
000463 
GOO 466 
000487 
00048b 
000489 
000490 
000491 
000494 
000^93 
000494 
000L93 
00049b 
000497 
000498 
000499 
000300 
000301 
00O304 
000303 
00U304 
000303 
000306 
0OU307 
00030b 
000309 
000310 
0003 1 1 
000314 
000313 
0003 l A 
000313 
UO0316 
00031 f 
00031b 
000319 
000320 
000321 
000324 
000323 
00032A 
000323 
000326 
00032 ( 
000326 
000329 
000330 
000331 
00U334 
000333 


* ENT EKING AN "A2" WILl CAUSE THE PRUGRAM To START THE "A2" 

* SEQUENCE from the BEGINNING. otherwise* AN INTERRUPTED TEST 

* WILE RESUME AF1ER C/R IS GIVEN. GIVING A C/R ALONE WILL RESUME 

* ThE PROGRAM FROM WHERE IT WAS INTERRUPTED. hQdE «D", 

* IE InTERkUPTlD, CANNOT BE RE-ENTERED BY MEA.,S OF A C/R* SHOULD 

* A BREAK OCCUR DURING DEBUG MODE, THE PKOGRA.-i WILL RETURN TO 

* "NEXT ?:% BUT WITH ALL DRIVES DE-SELECTED. 

* IF A DRIVE GueS OFF LINE DURImG TESTING, THmT DRIVE WILL 

* ALSU BE De-SeLECIED FROM FURTHER TESlING AFiER REPORTING THE 

* ERROR. 

* 

**************************** ******************** ************************ 

* ERROR REPORTING; 

* detected errors are reported as follows; 

* 

* ERR LABEL LjC UNIT FILE REC BUF ST AT 1 STAT4 

* 

* ERR ABCD e LwLL UU FFFF RRRR bBgb XXXX YYYY 

* 

* where; 

* THE FIRST LINE (ERROR HEADING) IS PKlNTEu PRIOR TO THE FIRST 

* RtPORTED ERROR ONLY. 

* Ab s MAJOR LABEL, KLFERS TO SUB-TEST BtlNG 

* PERFORMED (SEE "MODE A, USE") 

* CD - MIhOR LAbEL, INDICATES SPECIFICALLY WHERE 

* ERkOK wmS DETECTED 

* LLLL = HEX LOCATION WHERE THE ERROR WAS JETECJED. 

* UU = NUMBER OF THE UNIT uNDEK TtSI (0-3) 

* FFFF = HEX FILE NUMBER 

* RRRR s HEa RECORD NJMbtK 

* Bbbb = HEX ADDRESS OF THt DATA BUFFER INVOLVED 

* XXXX = HEX STATUS WORD #1 

* YYYY = HEa STATUS WORD *2 

* 

* 

* NOTE; THIS PROGRAM CAN BE OPERATED WITHOUT A CuNSOEe. eKkUR-DATA IS 

* LIMITED TO "AbCD" IN REGISTERS "Ri" AND "R2», AND "LOLL" IN RtGISTEN 

* "B2". All ENTRIES MUST BE MADE VIA REGISTER "Rl". THE PROCESS IS FURTHER 

* EXPLAINED IN MANUAL "Aa 94" ENTITLED "LEVEL-o SYSTEM CHECKOUT AND Tbv 

* MANUAL". 

* IF THE lRRUR INVOLVES ERRONEOUS DATA THE REPORT WILL 

* BE FOLLOWED BY FROM ONt TO EIGHT LlNtS OF TtlE FOLLOWING; 

* 

* BYTE XXXX SB YY, IS 44 RETRY ABOkT 

* 

* WHERE; 

* XXXX = RELATIVE BYTE LOCATION IN DATA BorFER (0-07FF) 

* YY = DAI A IN WRITE BUFFtk (SHGULD-BE) 

* 44 s ACluAL DATA IN READ BUFFER A1 THAI LOCATION (IS) 

* RETRY = TYPhD ONLY AFTER THE LAST DATA ERkOR DETECTED 

* (NuT TO EXCEED EIgHT ERROkb) 

* AbQRl = TYPtD ONLY AFTER IHREE kEaD ATTEMPTS 

* 


r\ 




( 
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0U0334 
000335 ? 
000336 
000337 
00033b 
000339 
000340 
000341 
00034* 
000343 
00034* 
00034b 
000346 
000347 
00034b 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
00035b 
000359 
000360 
000361 
00036* 
000363 
000364 
000365 
000366 
00036/ 
00036b 
000369 
0OO37U 
000371 
00037* 
000373 
0003 7* 
000375 
000376 
000377 
0U0376 
000379 
000380 
000381 
000 b b 4 
000383 
000^84 
000^85 
000386 
000387 
0u038b 
000389 
000390 
000391 
000394 
000393 
0 0 0 b 9 4 
000395 
000396 
000397 
00039b 
0o0599 
000400 
OOO 4 Q1 
O0O4O4 
OOO 4 O 3 

000404 
000405 
000406 
000407 
ouo40b 
000409 
000410 
000411 
O 0 O 4 12 
000413 
000414 
0004 1 5 
000416 
0004i7 
0004 1 0 
0 0 0 41 9 
000420 
0004*1 
0O0444 
000423 
0004*4 
000425 
0uG426 
000427 
0 0 U 4 2 b 
000*29 
000430 
000431 
000432 
G 0 O 4 3 3 
00043* 
000435 
00U436 
000437 
00043b 
000439 
000440 
000441 
00044*: 
000443 
000444 
000445 
000*40 


* 

* 

* 

* 

* 

* 

# 

* 

# 

* 

* 

# 

* 

* 

* 

* 

* 

* 

* 

# 

* 

* 

# 

* 

* 

* 

* 

* 

* 

* 

* 

* 

He 

* 

* 

* 

He 

# 

* 

* 

* 

* 

* 

He 

He 

He 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

# 

* 

* 

* 

He 

* 

* 

* 

* 

He 

* 

* 

* 

* 

* 

* 

# 

* 

* 

* 

* 

* 

# 

He 

* 

* 

* 

* 

* 

He 

He 

* 

* 

He 

He 


ThE FOLLOWlNo 15 A SUMMARY OF ALL MAJOR AND MINOR LABEL5 AND 
THEIR ERROR INDICATION; 


label 

INDICATION 

PROBABLE OKU 

ULTO 

JLT2 

ULi NEVER HAM 

GILT FAILURE 

check hex rotary switch 

BUS OR MDC 

ULPO 

ULpl 

ULP2 

0LP3 

ULT FAILURE 

QL1 FAILURE 

QL) FAILURE 

QLT FAILURE 

adapter port 0 
adapter PORT l 

ADAPTER PORT 2 

ADAPTER PORT 3 

ut7F 

UL9F 

ULBF 

OLDF 

oLeF 

MDC * INTERNAL 

CAi* INDETERMINATE 

CAi, MOC IMPLICATED 

CAi* ADAPTER IMPLICATED 
ADAPTER* I NT lRNAL 

MDC 

MDC OR ADAPTER 

MDC 

ADAPTER 

ADAPTER 

oLF 7 
uLF9 
oLFB 
ULFD 
OLFE 

ADAPTER* PE FUNCTION 

dai, indeterminate 

DAI, ADAPTER IMPLICATED 

DAI* DKO IMPLICATED 

DRO UR READ CLOCK 

adapter 

ADAPTER OR DRO 

auapter 

DRU OR CLOCK 


MAJOR LABEL (LABEL 1) 


WR11E FILE AND RECORD ADDKt58 IN r IR5T RECORD 

WRITE* READ AND CHECK RECORD OF elROS 

WRITE* READ AND CHECK 1*S IN BIT b OF EACH BYTE (L5B) 

WRITE* READ AND CHECK l'S IN BIT 7 OF EACH BYTE 

WRITE* READ AND CHECK l'S IN BIT o OF EACH BYTE 

WRITE* READ AND CHECK l'S IN 8 T ? OF EACH BYTE 

WRITE, READ AND CHECK l'S IN BIT 4 OF EACH BYTE 

WRITE* READ AND CHECK 1*5 IN BIT 3 OF EACH BYTE 

WRITE, READ AND CHECK l'S IN BIT 2 OF EACH bYTE 

WRITE* READ AND CHECK l'S IN BIT 1 OF EACH BYTE (MSB) 

WRITE, READ AND CHECK ALL 1*5 

WRITE* READ AND CHECK CHECKEK-BQAkD PATTERN 

WRITE* READ AND CHECK CHECKER-BOAkD PATTERN* OPPOSITE PHAbE 
WRITE* READ AND CHECK RANDOM LENGIH RECORD* RANDOM DATA 
WRITE* READ AND CHECK RANDOM LtNG!H RECORD* RANDOM DATA 
WRITE RANDOM DATA FROM STANDARD WRITE BUFFER 
READ PREVIOUS RECORD INTO RANDOMLY LOCATED BUFFER 
WRITE RANDOM DATA FROM RANDOMLY LuCATED BUFFER 
READ PREVIOUS RECORD INTO GTANDAku REAp BUFFER 
WRITE (SPACE OVER) FILE MARK AT EnD OF DATA FILE 
ARdITRARILY SKIP AROUND WIIHIN PRECEDING FILE, CHECK DATA. 
BACK-SPACE FILE TEST 
BACK-SPACE RECORD TEST 
debug mode* initial set-up 

DEoOG MODE* DATA COMPARISON ROUTINE 
UEoUG MODE* ERASE 
PEoUG MOPE* WRITE A FILE MARK 
DEbUG MODE* BACKSPACE A FILE 
DEoUG MODE, READ A RECORD 
DEbUG MODE* BACKSPACE A RECORD 
DEbUG MODE* REWIND TO 6-0-T 
DEbUG MODE* FORWARD SPACE A KECORu 
DEbUG MODE* WRITE A RECORD 
DEbUG MODE* FORWARD SPACE A FILE 
WRITE FILE OvER PREVIOUS FILL 
WRITE AND CHECK EnD-OF-PASB KECOku* 

ERmSE TEST 

FUkWARD-SPAC c. FILE TEST 

WRITE FILE MARK DELIMITER (MODE »M) 

FIuE MARK TEST 
FORWARD-SPACE RECORD TEST 
CHANNEL CONFIGURATION ROUTINE 
GLJ TEST 

INIEKRUPT LOGIC AND POLLING TEST 
REwlND TEST 

SE! AND RESET ALL STATUS BITS 

OPlKATION CHECK AND FUNCTIUNALITY N/AVAILABLE (READ REVERSE) 
READ RECURD wITH RANGE =0 
UNbUUAL LENGIH CHECK 

OPERATION CHECK WITH DIFFERENT DIRECTION FOR ICED AND TASK 
CHECK ANSI IVHIbIT MODE 
LRC * CRC * VRC CHECK 

DAI A SERVICE RATE ERROR CHECK (ONlY WIjH «BDC2 m FIRMWARE) 
NOhLAI ST ANT RESOURCE ERROR 

DATA TURN-ARJUND TEST (DO ONLY WITH '*BpC2" FIRMWARE) 
CALIBRATE CPU AGAINST RTC FOR TIMING TtSTS 
SEQUENCER TO HANDLE THE TESTING Of UP TO FOUR UNITS. 


MINOR LAdEL (LABEL2) 

—0l SYSTEM SHOULDN'T bE BUSY 

— 02 SHOULD HAVE oEEN READY 

— 03 SHOULD HAVE BEEN kLADY FOR REWIND 

— 04 UNIT N/RDY WITH ATTN SET 

— 05 STATUS INDICATES P.E. DRIVE, ID DoESN't 

— 06 STATUS INDICATES NkZl DRIVE* ID DOESN'T 

— 07 STATUS WORD 1 AND/OR 2 NG 

— 08 STmTUS WORD 1 NG AFTER REwlND 

— 09 TURN-AROUND TEST* RANGE ERKQK 

— 10 ShuULD have been ready for command 

— 11 STATUS NG DURING REWIND 

— 12 STATUS NG AFTER REWIND 

— 13 CAN'T GET STATUS, OR STATUS NG AFlER REWIND FROM BOT 

——14 STM US NG AFlER REWIND 

— 15 STATUS NG AFTER A WRITE OPERATION 

— 16 SHOULD HAVE SEEN READY PRIOR TO A READ OPERATION 

— 17 SHOULD HAVE bEEN READY FOR REWIND 

— 18 SYSTEM SHOULD HAVE BEEN READY WHEN ABOUT TO WRITE 

— 19 STATUS NG AFTER ERASE 

— 20 TIMING ERROR ON A 45 IPS DRIVE 

— El STATUS NG AFTER WRITING A FILE MARK 
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0UU44 / 
00044b 
00044V 
0u045u 
000451 
000454 
000453 
000454 
000455 
00045b 
000457 
00045b 
00045V 
0 0 0 4 6 0 
000461 
000464 
000463 
000 h 64 
UUU465 
00046b 
000467 
000466 
00046V 
000470 
000471 
0004 7 l 
000473 
000474 
000475 
000476 
000477 
0U047t> 
00047V 
000480 
000481 
00048^ 
000463 
000484 
000485 
u00486 
000487 
000486 
00046V 
u00490 
000491 
00049c 
000493 
000494 
000495 
000496 
000497 
000496 
000499 
0O0500 
000501 
00050c 
000503 
000504 
000505 
000506 
00050 7 
00050b 
000509 
000510 
000511 
00051 c 
000513 
000514 
000515 
000516 
000517 
00051b 
000519 
000520 
000521 
00052c 
000523 
000524 
000525 
000526 
000527 
000528 
000529 
000530 
000531 
000532 
000533 
00U534 
000535 
000536 
000537 
00053o 
000539 
000540 
000541 
000542 
000543 
000544 
000545 
000546 
000547 
00054c 
00054V 
000550 
0O0551 
000552 
000553 
000554 
000555 
00055b 
000557 


TIMING ERROR ON A 75 IPS uKiVE 
RFu 

INiilALUE DIDN’T DO IT’S IHING 
STATUS NG AFTER "BACK SPACE A FIU" 

FM SHOULDN’T BE DETECTED ON NORMAl RECORD 
STATUS SHOULD BE 8010-8010 AFTER k£AD REVERSE 

status should be 62io-8ooo for write w/range =o 

STATUS NG AFTER FOkwARD SPACING A RECORD WHICH IS A FILE HARK 
STATUS NG AFTER BACK SPACING A FiuE 
STmTUS NG AFTER FORWARD SPACING A FILE 
STATUS WORD 1 SB FM, N/BOT 

SHOULDN’T TA<,E ANY TIME TO BACK SPACE RECORD AT BOT 

STATUS WORD 1 NG AFTER BACKSPACE RECORD FROM BOf 

SHuULDN’T TA<e ANY TIME TO BACK ShACE A FILE AT BOT 

SHuULD HAVE INTERRUPTED BUT DIDN’j 

INTERRUPTED WHEN IT SHOuLDN*I HAVl 

PIuN’T INTERRUPT WHEN CP LEVEL WENT TO 63 

IN |ERRRUPT I No DEV ICE WAS NOT A TAPE 

"S« REGISTER IN SAVE AREA IS INCORRECT 

ACUVITY FLAG IS ON WHEN I I SHOULDN’T BE 

ACTIVITY FLAG IS OFF WHEN IT SHOULD BE ON 

CPU TRIED TO INTERRUPT 

STATUS NG AFTER BACK SPACE A FILE FROM BOT 
STATUS SHOULu BE FCFF-8FFF 

STATUS SHOULD BE BCF9-8FFF 

STATUS SHOULD BE FFFF-8FFF 

STATUS SHOULD BL 8080-8000 FUR KEaD W/RANGE =0 
RANGE SHOULD BE =0, DATA SHOULD b L 3333 

STATUS SHOULD bE 6080-8000* RANGE SHOULD bE =1* LAST DATA SB =33 

STATUS SHOULD BL 8080-6000* RANGE SB =0, LAST bYTE+1 SB =33 

STATUS SHOULD BE 8210-8000 FUR WRlTE/READ DIRECI10N CONFLICT 
STATUS SHOULD BE 8000-8000 AFTER ANSI INHIBIT WRITE 
STATUS SHOULD BE 8C00-8000 FUR NOn-ANSi READ OF SHORT RtCURD 
STaT SHUULD ot 6000-8000 FUR READ SHORT RECORD W/ANSI INHIBITED 
STAT SHUULD St A040-8602 AFTER DlAG WRITE W/FAKt CRC 6 LRC GAPS 
STATUS SHOULD bE AOOO-8700 AFTER kEADInG DIAGNOSTIC RtCURD 
DATA SERVICE RATE ERROR NO I DETEClED 
STATUS SHUULD INDICATE "FUNCTIONALITY NOT AVAILABLE" 

IN MIDDLE OF OPERATION, SHOULDN’T GET ACK’tD 
DIuN’T GET INTERRUPT WHEN tXPECTLu 

DEvICE SHUULDN’T HAVE INTERRUPTED WHEN IT’S KUPT LEVEL =0 
OUTPUT CUNTRDL TO STOP 10 SHUULD aLWAYs BE ACk’ED 
OPERATION TIMED OUT* SHOULD BE LEGS THAN 5 SECONDS 
STATUS SHOULD BE XXXX-8000 AFTER (ASK OUTPUT 
(XaXX=8000 FDR BDC2* =C0Q0 FUR BDC3 FIRMWARE) 

HISSING RESOjRCE TRAP* RESTART AT "NEXj 
INVALID SPEED INDICATED BY ID CODc 
DA(A COMPARISON ERROR 
DMa OVERFLOW 

STATUS NG AFTER ERASE OPERATION 
STATUS NG AF1ER FORWARD SPACE A FiLE And WAIT 
STATUS NG AFitk BACK SPACE A FILE AND WAIT 
NO DEVICE UN LINE 

STATUS NG AFTER FORWARD SPACE A RECORD AND WAIT 
STaIUS NG AFTER BACK SPACE A RECOkD ANd WAIT 


THIS PROGRAM CAN Bt OPERATED WITHOUT A CONSuLt PRESENT. 

UNDER THESE CIRCUMSTANCES ERROR DATA IS LIMITED TO THE MAJOR 

AND MINOR ERROR LAbtLS DISPLAYED IN HAKDWARc REGISTERS 

"k1" A Hu "R2" RESPECTIVELY, AND "LLEL" DISPLAYED IN 

REGISTER "B2"• ALL PARAMETER ENTRIES TO THE PROGRAM MOST BE MADE 

VIA REGISTER "Ri". THE PROCESS IS FURTHER EXPLAINED IN 

MANUAL "AW-94" ENTITLED "LEVEL-6 SYSIEM CHECKOUT AND 

T6V MANuAL". 

BEFORE ATTEMPTING TO READ, THE READ BUFFER IS FILLED 
WITH 33 (00110011) IN ALL BYTES. A FAILURE TO TRANSFER 
DATA IS INDICATED BY YY BEING 33 HEX. 

IF DATA ERRORS ARE DETECTED DURING THE NORMAL DAjA TRANSFER 

TESTS, THE PkOGRAM WILL ATTEMPT TO RE-READ I HE 

RECORD UP TO TWO MURE TIMES. IF THE RETRY A S SUCCESSFUL, 

THE PRQukAM WILL GO ON WITH THE NEXT TEST. IF Not SUCCESS¬ 
FUL, IT wiLL TYPE "ABORT" AlvD THEN GO ON WITH THe NeXT TEST 
ANYWAY. 

IF AT ANY Tlint THE OPERATOR wISHES TU SUPPRESS ERROR 
REPORTING, He. MAY DO S3 BY SELECTING MODE "a". REPORTING 
OF l-KkOkS MAY BE RESUMED BY GOING TO ”NEXT" AND SELECTING 
MODE " E " • AT LOAD TIME, THE DEFAULT MODE IS TO REPORT tRRORS. 

******** *** * ********* *********** ************************ 
D-OF-PASS REPORT: 

AFTEk EITHER "N" data FILES HAVE BEEN WRITTEN (SEE "MODE F, USE") 

OR "E-O-i" HaS been 

DETECTED ON any UNE OF THE SELECTED UNITS An "ENp-OF-PASS" 

RECORD IS WRITTEN ON TAPE AND THE FOLLOWING MESSAGE IS TYPED; 


MODE MN PASS PPP EEtt ERR(S) 


FFFF h L X FlLE(S)• •• 


WHERE; 

MN 

PPP 

LtuE 


CURRENT MODE AND UNIT (EG. "AO", "WI", "R2" tTC.) 

NUMBER OF PASSES FOR THAT UNIT SINCE START OF MODE (DEC) 
TOTAL DEC NUMBER OF ERRORS ACCUMULATED (ALL UNITS) SINCE 
START OF TEST (START OF TEST IS DlFINEd AS THE TIME 
WHEN A MODE IS SELECTED ON ONE OR MORE UNITS AND 
NO OTHER UNITS HAD BEEN PREVIOUSLY SELECTED, IE. 
FOLLOWING "STOP") 

TOTAL NUMBER OF DATA FILES WRITTEN ON THIS TAPE FOR 
THIS PASS (HEX) 


AvtkAut NUMBER OF DATA bYTES TRANSFERRED PtK FILE. 

MODES A/0 MODtS A/0 MODE W 
WRITTEN READ wRITTen 


MODE R 
READ 


MODE A, PER FILE 
MODE G, PER PASS 


14180 

113440 


208S3 

1668*4 


******************************************************************** 
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0u035b 
000339 
0U03bU 
000 bb 1 
0003bc 
0 0 U 3 b 3 
0003b4 
G 0 U 3 6 3 
0 0 0 3 b b 
G 0 0 b 6 7 
UU 0 b 6 b 
O0G3b9 
GGGb7G 
000371 
00037c 
000373 
000374 
G G G b 7 b 
GGOb 76 
GGGb77 
GGGb 7 6 
000379 
UGGbtiU 


Q003S3 
000384 
000383 
00038b 
000387 
000386 
000389 
00Q39U 
GGOb9 l 
00039c 
000393 
GGOb9A 
GG U b 9 b 
CGGb9b 
G u G b 9 7 
GGGb9b 
0G0b99 
CGObOG 
GGGbOI 
OOObOc 
0G0b03 
GGGbOA 
UGObOb 
GGGbOo 
GG0607 
OGObOb 
0GG6G9 
0GG61G 
0G061 l 
OOGcU 
GGGoU 
GGGb 1A 
OOGbib 
GGGb 16 
GGGb 17 
OGGblb 
GOOb 19 
U G G b 2 G 
GGGb21 
OOOb2c 
GGGb2 b 
GGG62A 
GGGo2b 
GUGb2b 
000627 
GGGb2b 
GG0b29 
GGGb3G 
0G0o3i 
0GGb32 
UGOo33 
OGOb 3*+ 
GGGb3b 
OGGb 3b 
0 G G b 3 7 
G0Gb3b 
G0Gb39 
GGGbAG 
GGGbAi 
GGGbAc 
GGGbA3 
GGGbAA 
GGGbAb 
GGObAb 
0GG6A7 
000b46 
GGGbA9 
GGGb bG 
OOGbbi 
OOQb5c 
OGGo53 
GGG6bA 
GGObbb 
OGObbb 
OGObS 7 
000656 
0GGb59 
OOObbU 
GGGbb1 
000 b6c 
GOObb 3 
GGGbbA 
GGGbbb 
GGObbb 
000o67 
GGObbb 
G0Gbb9 
000670 


/*********************************************************************** 

* STATUS wORub: 

* THE TWO STATUS WUKDS HAVE THE FOLLOWING SIGkIFICANCE i 


* 

FIRST 

STATUS WORD 


* 

BIT 

STATUS 


* 

u 

RlADY 


* 

I 

ATTENTION 


* 

2 

RETRY ABLE 

MEDIA ERROR 

* 

3 

KFU - MBZ 


* 

4 

CORRECTED 

MEDIA Ekkuk 

* 

3 

TAPE MARK 

DETECTED 

* 

b 

b-O-T 


* 

7 

E-O-l 


* 

0 

UNEQUAL LENGTH CHECK 

* 

9 

NQN-KLTRYABLE ERROR 

* 

lu 

kFU - MbZ 


* 

* 

II 

UPERATION 

CHEU 


ic CORRECTED MEMORY ERROR 

13 NON-lAISTANT resource error 

Ia bUS PARITY EKkJR 

13 UNCOkRECTEO MEMuRY ERROR 


SECOND SlATUb WORD 
b IT Si AT US 

0 UN LINE 

1 REWINDING 

2 FILE IN PkOTECl 

3 HIGH DENSITY SELECTED 


a DATA SERVICE RATE ERROR 

3 uNCOKKECTAbLE CHARACTER ERROR 

b HRZI CRC ERROR / P.E. SINGLE TRACK uRROR 

7 NRZI LKC ERROR / P.t. MULTIPLE TRACK ERROR 


6 iu buRST AREA ERROR 

9 RFO - MBZ 

1G TIME-OUT CHECK 

11 FoNCi10NALITY NOT AVAILABLE 

12 bEGIkNING-OF-BLOCK-EAkLY EkkOK 

13 BEGIkN 1NG-oF-buOCK-LATE ERROR 

IA tND-OF-BLOCK-EARLY ERROR 

is end-uf-blgck-late error 


***** **********************x ******************************************** 

* MODE "A"* cSE 

* AS SOON as a C/R is received by THE COMPUTE* THE PROGkAM will 

* START ON THE FIRST OF 1 HE "SELECTED" DRIVES AnD WILL PERFORM 

* THL FIRST OF THE SUb-TESTS LISTED BELOW UN jHAT DRIVE. IT WILL 

* THEN GO UN Tu THE NEXT SELECTED DRIVE AND PlRFORm THE FIRST 

* SUb-TtSl ON IT* AND SO ON. IF A SELECTED DRiVE IS REWINDING THAT 
DRIVE WILL bE SKIPPED AND THE PROGRAM WILL CONTINUE TESTING THE 
REMAINING DRIVES UNTIL THE REWIND Is COMPLETE. 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


DURING ThE 0PEKAT1UN UF MODE "A" THE FOLLOWING SuB-TtSTS ARE 
PERFORMlD. The TwO LETTER "MAjOR LAbEi." wILu bE INCLOdED IN THE 
MESSAGE WHENEVER AN ERROR IS REPORTED DURINu THAT TEST. SPECIFIC 
TEST SEC I IONS MAY bE FOUND IN THE LISTING bY LOCATING THL 
REPukTINg LAgEL IN THE ACCOMPANYING CROSS-REFERENCE list. 

THE FIRST GKuUP OF TESTS IS PERFORMED ONLY uNCE AT THE START 
OF THE FIRST PASS THROUGH THE TAPE, iHESt akE SPECIAL PURPOSE 
TESTS DESIGNED TO INTRODUCE ERRORS TU DETERMINE IF THE SYSTEM 

is functioning properly. 

MAJOR LAbEL 

X0-X3 SEQUENCER TO HANDLE THE TESTING Of UP TO FOUR UNITS. 

THIS HANDLER RUNS CONTINUOUSLY THkOUGHoUT THt TEST 
T1-T9 DATA TURN-AROUND TEST (DO ONLY WITH "BDC2" FIRMWARE) 

RW - REWIND TEST 

£K - ERASE TEST 

FM - FILE MARK TEST 

bK - bACK-SPACE RECORD TeST 

FR - FORWARD-SPACE RECORD TEST 

oF - BACK-SPACE FILE TEST 

FF - FOrwARD-SPACE FILE TEST 

EF - WRITE FILE OvER PREVIOUS FILE ~ . 

KP - INTERRUPT LOGIC AND POLLING TEST 
SA-SI STATUS WORD TESTS 

FOLLOWING THESE PRELIMINARY TESTS* THE PROGkAM WILL BEGIN THE 
GENERAL wRITt/READ DATA ROUTINES AS UUTLINEu BELqw: 


FI 

AA 

Ab 

AC 

AD 

AE 

AF 

AG 

AH 

Ai 

Aj 

AK 

AL 

AM 

AN 

AG 

AP 

AQ 

AR 

AS 

AT 


WRITE FILE MARK 
WRITE FILE AND RECORD ADDRESS 
WRilE/KEAD RECORD OF ZEROS 


W/K 

W/R 

W/R 

W/K 

W/K 

W/K 

W/K 

W/R 


l'S 

l'S 

l'S 

l'S 

l'S 

l'S 

l'S 

l'S 


8 OF EACH BYTE 
7 OF EACH BYTE 
b OF EACH BYTE 
3 OF EACH BYTE 
~ EACH BYTE 
EACH BYTE 
EACH BYTE 
EACH BYTE 


IN FIRST RECORD 
(LSo) 


OF 

OF 

OF 

OF 


IN BIT 
IN BIT 
IN BIT 
IN BIT 
IN BIT 
IN BIT 

IN BIT _ .. _ _ . 

. . _ IN BIT 1 OF EACH BYTE (MSo) 

W/K ALL l'S 

W/K CHECKER-BOARD PATTERN 

W/R CHECKER-BOARD PATTERN* OPPOSITE PHASE 
W/K RANDOM LENGTH RECORD* RANDOM bATA 
W/K RANDOM LENGTH RECORD* RANDOM uATA 
WRITE RANDOM DATA FROM STANDARD WkITE BUFFER 
READ PREVIOUS RECORD INTO RANDOMLY LOCATED BUFFER 
UP TO 64K * (IF ONLY 8K, USE STANDARD READ BUFFER) 
WRITE RANDOM DATA FROM RANDOMLY LuCATED BUFFtR 
UP TO S4K• (IF ONLY 8K* USt STANDARD WRITE BUFFER) 
READ PREVIOUS RECORD INTO STANDARD READ BUFFER 
.... A FILE MARK 


WRITE (SPACE OVER) 
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000671 

00067c 

000673 

000674 

000676 

000676 

000677 

00067b 

000679 

OOOoSO 

00068i 

00068c 
000683 
00068 * 
000686 
000686 
000687 
00068 b 
000689 
000690 
000691 
000692 
000693 
00069* 
000696 
000o96 
00069 7 
00069b 
000699 
000700 
000701 
00070c 
000703 
000704 
000706 
000706 
000707 
000708 
000709 
000710 
000711 
000712 
000713 
000714 
000716 
000716 
000717 
000718 
000719 
000720 
000721 
00072c 
000723 
000724 
000726 
000 72b 
000727 
000728 
000729 
000730 
000731 
000732 
000 733 
000734 
000736 
000736 
000737 
000738 
000 739 
000 740 
000741 
000742 
000743 
000 744 
000746 
000 746 
000747 
000748 
000 74 9 
000750 
000751 
00075c 
000753 
000754 
000755 
000756 
000757 
00075b 
000759 
000760 
000761 
000 76c 
000763 
000764 
00O765 
000766 
00076 7 
00076b 
000 769 
00077u 
000771 
000772 
000 7 7 3 
000774 
000775 
000 776 
000 77 7 
000778 
000 779 
000780 
000781 
000 78c 
000783 


AFTER THE FILE HARK 15 WRITTEN, THE FOLLOWING TEST IS PERFORMED, 

AO - ARBITRARILY 5KIP AROUND WHH1N PRECEDING Fltfc* 

CHECK DATA, 

IF AN "END-OF-PASS" IS DETERMINED TO EXIST (IE* END-OF-TAPE OR «N" 

data files done (see below)) an «end-qf-pasu" record ib written on 

TAPE AND THE "ENU-GF-PASS" MESSAGE WILL BE TYPED OUT ON THE CONSOLE* 

LP - WRITE AND CHECK END-OF-PASS RECORu. 

IF NOT END-OF-PASS, TESTING IS RESUMED WITH TEST »AA" 

AFTER TYPING THE END-OF-PASS MESSAGE* THE PkQGRAm W jLL 
RESUME TESTING WITH TEST "AA" FROM B-Q-T. 

DURING ALL OF THE ABOVE, ROUTINES X0-X3 ARE EXECUTING 
CONSECUTIVELY, SEQUENCING BETWEEN ALL UF THt SELECTED UNITS, 

(note: the sequence "aa-au" is considered to be a single 

TEST WHiCH MUST BE COMPLETED BEFORE A TEST MAY Be PERFORMED 
ON THE NEXT DRIVE,) 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* DATA STRUCTURE: 

* AFTER THE PRELIMINARY TESTS ARE COMPLETED Ok SKIPPED* EACH 

* FILE WILL COimTaIN 17 (HEX 11) RECORD^, (TESlS AA-A5 AND AU) , 

* THE FIRST WORD (BYTES 0,1) wlLL CONTAIN THE FILE NUMBER AND 

* THE SECOND WORD (bYTES 2,3) WILL C0N1A1N THt RECORD NUMBER. 

* THE REMAINING WORDS MAY BE A FIXED OR RANDOM DATA PATTERN 

* OF FIXED OK RANDOM LENGTH. ThL TABLE BtLOW bHGWS THE FIRST 

* SIX BYTES OF EACH OF THE RECORDS IN FILE 11 (DEC) AFTER HAVING 

* WRITTEN AT LtAST THAT MANY FILES. 


Jr 


* 

HtX 








dec 


* 

* 

KEC 

Q 

1 

2 

3 

4 

5 

DATA 

bytes 

EAbEL 

* 

0~ 

00 

OB 

00 

00 

00 

00 

FIXED 

18 

AA 

* 

1 

00 

OB 

00 

01 

00 

00 

FIXED 

275 

AB 

* 

2 

00 

OB 

00 

02 

01 

01 

FIXED 

1900 

AC 

* 

3 

00 

OB 

00 

03 

02 

02 

FIXED 

1727 

AD 

* 

4 

00 

OB 

00 

04 

04 

04 

FIXED 

1004 

AE 

* 

5 

00 

OB 

00 

05 

08 

08 

FIXED 

131 

AF 

* 

6 

00 

OB 

00 

06 

10 

10 

FIXED 

804 

AG 

* 

7 

00 

OB 

00 

07 

20 

20 

FIXED 

1435 

AH 

* 

8 

00 

Ob 

00 

08 

40 

40 

FIXED 

312 

A 1 

* 

9 

00 

ob 

00 

09 

80 

80 

FIXED 

29 

AJ 

* 

A 

00 

Ob 

00 

OA 

FF 

FF 

F IXED 

1967 

AK 

* 

B 

00 

Ob 

00 

OB 

A9 

56 

CHECKtR 

408 

AL 

* 

C 

00 

Ob 

00 

oc 

56 

A 9 

checker 

92 

AM 

* 

D 

00 

OB 

00 

OD 

20 

55 

random 

RANDOM 

AN 

* 

t 

00 

ob 

00 

OE 

21 

D5 

random 

random 

AO 

* 

F 

00 

ob 

00 

OF 

18 

DA 

KANDOM 

1024 

AP, AQ 

* 

10 

00 

ob 

00 

10 

16 

5A 

RANDOM 

1024 

AR, AS 


************ ************************************************************ 

* MODE "0", USE 

* THE DEBUG MODE ALLOWS THE OPERATOR TU LINK (OGETHER 

* AND EXECUTE A NUMBER OF DIFFERENT SUBROUTINES FOR THE 
PURPOSE OF LOCATING SPECIFIC nARDwARL PRobLlMS. 

THL AVAILABLE SUBROUTINES ARE: 


link 

A - PRINT CONTtNTS OF WRITE BUFFER 
b - PRINT CONTENTS OF REaD BUFFER 
C - INITIALIZE 

d - cohpakl read buffer to write duffer 

E - ERASE A BLOCK OF TAPE 
F - FILL wRITt bUFFER, FIXED DATA 
G - FILL WRITE BUFFER, RANDOM DATA 
H - HALT lALCUTION, RETURN TO DEBUG 

I - till write buffer, ascending count 

0 - ESTABLISH RANDOM WRITE BUFFER UP TO 04K 
K - tSTABLlSH random read buffer up TU 6<*K 
L - SPARE SUBROUTINES <NOP»S) 

M - WRITE A TAPE MARK 

N - GENERATE RANDOM PARAMETERS (LENGTH, uATA) 

0 - BACK-SPACE A FI w E 

P - PRINT PARAMETER SET (UNIT, HtX LENGTn, DATA, W/bUF, R/BUF) 

Q - TRANSFER READ BUFFER TO WRITE BUFFk 
R - READ A RECORD (OON»T CHECK DA 1A) 

S - ImPUT BOTH STATUS WORDS 
! - BACK-SPACE A RECORD 
0 - KtWlND TO "B-0-T" 

V - FOKWAkD-SPACE A, RECORD 
W - wKIIE A RECORD 

X - tXlT TO "NEXT ?:" 

Y - FOKWAKD-SPACE A FILE 

L - PRINT STATUS, RANGE, FILE NUMBER, RECORD NUMbER. (ALL HEX) 

TO (MANUALLY SELECT A PARTICULAR WRITE UR RE*D BUFFER 
LOCATION, ENIER THE BUFFER ADDRESS IN LOCATION "jjPT" 

Ok "KKPI" RESPECTIVELY AFTER ENTERING I HE DlBUG MODE. 

AFT tR T YPING "DN", WHERE N IS ThE DRIVE NUMbER, THE COMPUTER WILL 
REQUEST A SET OF PARAMETERS bY TYPING THE FuLEOWlNG: 

RANGl, DATA ?; LEL,DD C/R 

TO ENTER NEW PARAMETERS THE RESPONSE SHOULD Bt As FOCEUwS: 

LEL = RECORD LENGTH (12-800 HEX BYTES, DEFAULT = 800 AT LOAD TIME, 
OR WHATEVER THE MOST RECtNl VALUE WAS AS A RESULT OF 
RUNNING MODES *A«, »Q», »W* UR »k«) 

bptCIAL PROVISION^ HAVE BEEN MADE IN ORDER TO 
READ TAPES GENERATED EXTERNALLY. UMTERlNG A 
RAMGE OF ZERO WILL CAUSE THE PROGkAM Tq DEFAULT 
TO A RANGE OF *800 AND WILE SUPPRESS THOSE 
ERRORS SPECIFICALLY CAUSED BY A RcAD OPERATION 
WHiCH RESULTED IN AN "UNEQUAL LENGTH CHECK 1 *. 

TAPES MAY THEN BE READ (WllHUUT REQUIRING A 
WRITE ENABLE RING) TO DETERMINE IF OTHER 
ERRORS ARE PRESENT. 

(NuTE! ranges from hex i to n may bE used in read mode* 
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0 U U 7 8 l 
U 0 U 7 8 3 
uoo ns b 
000/87 
0 0 0 7 8 8 
000789 
000790 
U 0 U 7 9 i 
0 U 0 7 9 <. 
0 0 U 7 9 i 
00079A 
000 /93 
000 /9 d 
00079/ 
U U U 7 9 6 
OOU f 99 
OuObOO 
OOObO i, 
OOObOZ 
U0U803 
OUUbOA 
0UU803 
OOObOb 
0 u 0 o 0 7 
OOObOb 
0U0809 
000b10 
OOObl i 
0 U 0 8 1 2 
000b i 3 
OUOb 1A 
OOOo 1 is 
000b 1 o 
OOObl 7 
000b l 8 
OUUb 19 
0UO82u 
GuOo21 
OOUbZc 
000o23 
000o2A 
0U0b2 i? 
0U0626 
0 0 0 o 2 7 
000b 2 b 
000829 
000b3o 
000b 3 I 
000832 
OoOb 3 3 
000b 3A 
000b 3 3 
OOOo 36 
000637 
000b 36 
000839 
000bAu 
000bAi 
0o06A2 
000bA3 
OOOoAA 
000bA3 
OOObA 6 
0 o 0 b A 7 
0 0 0 b A 8 
000bA9 
uOObbu 
0 0 0 o 3 1 
OOOo 
000833 
00083A 
000633 
O00b56 
000b 57 
00ub58 
000659 
0u0o60 
000861 
OoOo6l 
OuOb63 

000b6A 
O00o6 3 
000866 
0 U 0 8 6 7 

000b6b 

000869 
000b7u 
000871 
OOOd'U 
OOu 673 
00087a 
000b7 3 
000676 
000677 
0 00 6 7 6 
000679 

000b80 
000681 
000682 
000683 
0008 8A 
000683 
000686 
000687 
000686 
000689 
000890 
000691 
0o0692 
000693 
00089A 
000893 
000696 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

# 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

ft 

* 

* 

* 

* 

* 

* 

ft 

* 

* 

* 

* 

* 

ft 

* 

* 

* 

f 

ft 

ft 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


HGwtVEK, SINCE THIS DEFIES THE ANSI STANDARD. ERRORS 
W I LL Bt REPORTED# ) 


w IS 






the two parameters are separated bY a comma. if no values are 

ENTERED btFO kL EITHER DELIMITER THAT PARAMETER will REMAIN 
UNCHANGtD FKuM THt LAS! TIME IT WAS ENTERED. A RESPONSE OF ONLY 
A CARR I ALL KlIUKN WILL LtAV l bOTH PARAMETERS UNCHANGED# THE DATA 
PATTERN dYTE wlLL bE REPEATED THROUGHOUT THl ENTIRE RECORD 
LENGTH ONLY whtN LINK »F» (SEE BELOw) IS EXECUTED. 

A "BREAK" WILL CAUSE A RETURN TO "NtXT ?:". 

IN ANY CASE♦ A CARRIAGE RETURN WILL CAUSE ThE FOLLOWING; 

LINKS v: AXXX...C/R 

ThE RtSpUNSL TO THIS REQUEST FOR SUBROUTINE LINKS SHOULD CONSIST 
OF A COMBINATION Of UP TO TWENTY (20) OF THl LINKS DESCRIBED 
bELOW AND INDICATED BY "X«S" ABOVE. THE STRING MUST BE 
TLKMiNATtD BY A C/R. TO RETURN FROM '’LINKS'* TO "RANGE. DATA*', TyPL 
"H" C/R. TO ABORT AND RETURN TO "NEXT", TYPl "BREAK". AT THIS POINT 
ALL PRLVIOUSlY SLLlCTLO "MODES" AND RETURN POINTERS WILL BE CLEARED 
TO KL-ExLCUTt A STRING OF LINkS PREVIOUSLY lNTEReD, THE RESPONSE TO 
"LINKS V:” SHOULD BE A CARRIAGE-RETURN. 

A STRINb UF lINKS TERMINATED BY A C/R WITHOUT AN "H" UR "X" WILL 
CuNTINUUUSLY LOOP ON TiAT STRING. 


THL PROGRAM'S RESPONSL TO LINkS "A" UR "b" wlLL HAVE THE 
FOLLOWING FORMAT; 

XXX-- DD DD DD DD 00 DD DD DD DD DD DD uD DD DD DD DD 


WhtRL; 

XXX = POSITION IN BUFFER OF FIRS 
DD = DATA BYTE FOUND IN BUFFER 


I DATA BYTE IN LINE (0-7FQ HEX) 
(Q-FF ) 


THE KLSPUNSE (U LINK "P» IS AS FOLLOWS; 

PARMs; U LLL DD WwWW RRRR 
WHERE; 

U = UNIT NUMBER (0-3) 

LLL = KELURD LENGTH (1- 8U0 BYTtS, HEX) 
DD = DATA PATTERN (O-FF) 
wWWW - WRITE bUFFER LOCATION 
KRkk = KEaD BUFFER LOCATION 


the response to link "z" (print status, etc.) is as follows; 

sTAT; U VVVV WWwW XXaX YYYY lLLL 

WHLrE: 

U = UNIT (HEX) 

VVVV ~ FILE (HEX) 

WWWW = RELORD (HEX) 

XXXX S RANGE REMAINING FROM CURRENT OPERATION (HEX) 

YYYY = FIRST STATUS WORD 
LLLl = SElUND STATUS WORD 


* 

ft ft 
* 

* 

* 

ft 

ft 


* 

# 

* 

ft 

ft 

* 

ft 

ft 

ft 

* 

* 

* 

ft 

ft 

ft* 


ShUULu THE EhD-OF-TAPE MARklR BE DETECTED EITHER UPON 
ENTERING OR WHILE OPERATION In THE DEBUG MOuE THe message 
" t-U-T" WILL oL REPORTED. THE PROGRAM WILL )HEN HALT AND 
WAIT FOR THE OPERATOR 10 HIT "EXECUTE". This WILL CAUSt THE 

program to Continue operation, but allows the operator to 

TAKE APPKuPRI ATE MEASURES IF NECESSARY. 

SHOULD LINK "D" DETECT ERRONEOUS DATA THE REPORT WILL FOLLOW THE 
FORMAT LISTED UNDER "E*KOk REPORTS". 

LINKS "F" "G" AND "I" wlLL FILL THE WRITE BuFFER WITH PRECISELY 
THE NUMbtK OF BYTtS CALLED FOR IN THE "LENG)H" (RANGt) 

PAkAMETtR. THE REMAIND tR OF THE BUFFtR WILL STAY UNCHANGED. 

SELECTING LINKS »J» UR "K" wlLL (IF MOKE THaN 8K MEMORY IS 
AVAILAbLL) SlT ASIDE A BUFFER RANDOMLY LUCAjED ABOVE ZV$LK. 

ONLY ONt KANUOM bUFFLR IS ALLOWED AT A TIME. THEREFORE CHOOSING 
A "J" FuLLGWlD BY A "K» WILL NEGATE THL EFFlCTS of tHE "J". 

LINk "0" MAKES IT POSSlbLE TO CHECK A PREVIOUSLY RECORDED' TAPE 
BY FIRST REAuING THE DATA, TRANSFERRING THE DATA JO THE WRITE 
bUFFER ANu THEN KE-REAuINg AND COMPARING THc. "WRITE" AND "READ" 
bUFFERS. FUR EXAMPLE; 

LINKS ?; RQTRDH C/R 

*************************************** ******************************* 
MODL "L", USE 

ENTERING MUDe "E» SERVES TO ENABLE ERROR REPORTING, THUS 
CANCELLING Tht EFFECTS UF MODE "X". THE QUESTION "NEXT ?J" 

IS THEN REPEATED IMMEDIATELY. "E" IS THE DtFAULT MODE WHEN 
THE PROGRAM IS FRESHLY LOADED. 

*********************************************************************** 
MODE "F". USE 

REQUESTING MUDE "F" CAUSES THE FOLLOWING PRINTOUT; 

NOW FFFF HEX FILE(S)... ?; NNNN C/R 
WHERE; 

FFFF • CURRENT NUMBER OF FILES TO bt UStu IN 
MODES A, Q. R AND W (HEX). 

NNNN = DESIRED NDMBER OF FILES (HtX). 

NOTE: Zero FILLS WILL ot INTERPRETTtD AS MtaNlNG A REDDEST TO 
GO TO END UF TAPE (E-Q-T). AND THE REPORT WILL SAY; 

t-O-T HLX FILE(S)... ?; 

** * ******* f. * ***** * * ****** * **** ******* ************ *********** * ********* 
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U 0 0 a 9 7 
G00b9b 
000899 
000900 
000901 
000902 
000903 
000904 
000905 
000906 
000907 
00090b 
000909 
000910 
000911 
000912 
000913 
000914 
000915 
00091b 
000917 
00091b 
000919 
000920 
000921 
000922 
000923 
000924 
000925 
000926 
000927 
00092b 
000929 
000930 
000931 
000932 
000935 
000934 
000935 
000936 
00 09 37 
00093b 
000939 
0OO94U 
000941 
000942 
000943 
000944 
000945 
00094b 
000947 
00094b 
000949 
000950 
000951 
00095 ^ 
000953 
000954 
000955 
000956 
00095 7 
00095b 
000959 
000960 
000961 
000962 
000963 
000969 
000965 
0 GO 966 
000967 
00096b 
00O969 
0009 70 
000971 
00O9 7 4 
0009 73 
000974 
000975 
000976 
0009 7 7 
00097b 
000979 
000980 
000981 
000982 


* MODE "1" USt„ 


Tht CHANNEL NUMBEK5 USED BY ThE PROGRAM BECAME AVAILABLE 
TO IT VIA THt KtSPONSt TO THE QUESTION "CHANNEL ?;« WHEN 
THE PROGRAM lb INITIALLY STAkTED. RESPONDING TO »WXT ?;" 
WITH "I" RETURNS THE PROGRAM TO THE CHANNEL QUESTION* 

£ F J E £ A H£X vA !- UE IS RECEIVED, THE PROGRAM wlLL RECONFIGURE 
THE CHANNEL ADDRESSES AND CHECK THAT A TAPE 
SUBSYSTEM IS PRESENT ON THAT CHANNEL* IT WUL TH E n RETURN 
TO THE "NtXT ?;" QUESTION. 


************ ************************************************************ 

* MODE "P", uSE 

* MODE «P" WILL PRINT A SUMMARY OF UP TO THE J-IKST 

* TEN ERROR REPORTS RECEIVED IN THE PREVIOUS nOD£(S). THE 

* REPORT wlLL bE IN THE SAME FORMAT AS THE FIkST Line OF 

* THE NORMAL ERROR REPORT, EXCEPT THAT THE DECIMAL PASS COUNT DURING 

* WHICH The ERROR WAS RECORDED WILL ALSO BE ShOWN AT ?HE 

* END OP THE LINE. DATA "IS-SB" ERRORS WILL NOT BE REPORTED. 

* THE ERROR SUMMARY TABLE WILl BE CLEARED UPON STARTING WITH 

* A CLEAN MODE. (EG. -0 -1 -2 -3). RUNNING MODE f»p» WILL CLEAR 

* THE mode TABLE. 

* 

************************************************************************ 

* MODE "Q", USE 

* "QUICK’* MODE WILL OPERATt IDENTICALLY 10 MOuE "A« AnD tRRORS 

* WILL bh KePOkTED WITH THE SAME REPORTING LAoELS. hOwEVER* 

* instead up testing for «n« data piles, only it> decimal uo hex) 

* DATA FILLS WILL bE GENERATED after completing th| PRELIMINARY 

* TESTS "T1 M THROUGH "SI". THE PROGRAM WILL ThEN REPORT "END-0F- 

* PASS" AND RESTART WITH TEST "AA". 

* 

************************************************************************ 

* MODE "R", USE 

* THE "KEau-ONlY" MUDE IS INTENDED TO PROVIDE THE GREATEST 

4 L IKtLYHUOD OF SUCCESSFULLY READING A PKE-RElOkDEd TAPt AND 

* AS SUCH IT WILL UPERAIt WITHOUT DOING ANY WkITE OR oNNECtSSARY 

* SPACING OPERATIONS. IT WILL READ A T^PE PREVIOUSLY RECORDED 

* IN EiTHER MOUES "A", " 0" OR "w" (SEE BELOW) UNTIl AN "tND-UF-PASS 

* RECORD 16 DEJECTED WHtREUPON IT WILL RtWIND AND START OVER. 

* THE "READ-ONLY" MODE PtRFORMS AND REPORTS IDENTICALLY 

* TO MUDE "A" WITH THE EXCEPTION THAT NO WRITl OPERATIONS 

* TAkl PLACE.And THAT a PASS is CONSIDERED TO BE CQMPLETt 

* WHEN AN "END-OF-PASS" RECORD IS DtTECTtD ON TAPE. 

************************************************************************ 

* MODE »S», uSt 

* THE "STOP" MUDE WILL HAVE THE EFFECT OF Dt-oELECTiNG UNITS 

* 0-3 AND THEN ASKING THE QUESTION "NEXT ?;". 

* 

************************************** ********************************** 


MODt "w", USE 

THE "WkiTt-ONLY" MODt PERFORMS AND REPORTS IDENTICALLY 

JO MODE "A" WITH THE EXCEPTION THAT NO READING OR DATA 

CHECKING OPERATIONS TA<t PLmCE. "tND-OP-PASp" IS 

GtNEKAT lu WHlN EITHER "N" FILES HAVE BEEN WRITTEN OR 

WHEN "LNd-OF-TAPE" HAS BEEN DETECTED* FOLLOwlNG m E nd-0P-PAS5" 

THt PROGRAM wlLL "DE-SELECT" THAT DRIVE BUT CONTINUE TESTING 
ANY OTHLR UNITS. IF NO OTHER UNITS ARE SELECTED * THE "BREAK" KEY 
MUST Ot HIT 10 RETURN TO "NEXT". 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

************************************************************************ 

* MODE "X", USE 

* SELtCTlOH OF MODt "X" SUPktSSES FUTURE ERRQk REPORTS UNTIL 

* LNAdLED bY MlDE »E". THE FIRST TEN tRROR KlPORTs, IF 

* ANY, wlLL CONTINUE TO bE ENTERED INTO THE EkROR HISTORY BOF- 

* Ftk. 

* 

************************************************************************ 

* MODE "2", USE 

* SlLlCTINg MODE CAUSES THE QLT TtGT TO be. RUN CONTINUOUSLY. THE 

* RESULTS OF Tht QLT WILL BE INTERPRETED AND ANY ANOMALIES WILL BE 

* REPORTtD. HITTING THE "BREAK" KEY WILL RETUkN TO ..NEXT" AFTER THE 

* CURRENT uLT hAS COMPLETED, AS MUCH AS 15 SECONDS, 

* during the Running of mode »Z" the message... 


qLT PASS PP (WHERE PP IS THE DECIMAL PASS COUNT) 

WILL BE RLPOkTLD AFTER EACH TtN DECIMAL PASpES Of THE QLT* 
BEFORE RUNNING ANY SUBSEQUENT TESTS, MUDE "p" SHOULD t>L RUN. 


* 

* 

* 

* 

* 

* 

************************************************************************ 

* MODE uSL . • - - 

£ THIS MODE WILL DELETE A SINGLE DRIVE FROM THE TEST LIST. 

******************4***************************************************** 
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/*********************************************************************** 

000984 


0000 



ZERO 

LOU 

S 


000985 






XLUC 

ZHlbAZiZHRTCIfZHRTCC 

*ZHRICL*ZHNTSA*ZVSHR f 2HTH15*ZHCOMM,ZViDKF 

^""S. 000986 






XLOC 

2.VSSV 1*ZV$SV2*ZVSbkB 

*ZHlAFb*ZVSLK*4VSER,7VsF*ZV$HKU*ZVSHRL 

m 00098 l 





********* X X * * ** *** * ** * X **** * * X * * ****** * ** ********** ***************** ***** 

m ooovBb 


0100 



ST ART 

LOU 

LEkO+X*100* 


000989 

0100 





UK<o 

STAkT 


000990 





* 




000991 

0100 

62b0 

2162 



Lo 

<GQbLAG,=Z*OOUl* 



0102 

0001 







00099^ 

0103 

0500 

0229 



BB T 

< R E S1 R T 

BYPASS THE FOLLOWING* DONE ALREADY 

000993 






CALL 

LVSkP * MbNAML 

PRINT HILL AnD RESOURCE^ 


0105 

bBOO 

0003 







010 7 

0 380 

0000 

A 






0109 

Ob 80 








01UA 

2101 







000994 

010b 

b051 




bTb 

= SKl 

GET STATUS 

000993 

C10C 

8201 




Ld 

=$Rl»=Z»2000» 

CHECK 6/40 PR 1V BIT 


0100 

2000 







000996 

010b 

0500 




BB 1 

>STmRTA 

B IF 6/40* DON'T AbK "RTC FREQ ?” 

000997 






CALL 

ZVSi .ZVsQC i MS-<TC 

PRINT RTC OULjTIOn 


0101- 

F bOo 

0003 







0111 

0380 

0000 

X 






0113 

Ob 80 








0114 

2264 







00099o 






CALL 

ZV$IH.2VSlD*klCHZ 

GET RTC FREQUENCY (DEFAULT = 60) 


0115 

bbOO 

0003 







Oil l 

0380 

0000 

X 






0119 

Ob 80 








011A 

2 1 AO 







000999 





*- - - 

.... 



00 1 oOu 





* SET 

UP FOR 

normal running at ll vtL 15 

OOloUl 





* 




00100,1 

Oilb 

9bfa0 

0126 


STAKTA 

LAD 

sBi*<LEVVl5 

CONTINUE AFTLk SUSPEND TO LEV 15 

OOloOi 

0110 

9b 80 

2 3 OF 



ST B 

Sbi,<SA15P 


001u 04 

011b 

9b60 

230C 



LAB 

SBl»<SA15PV 

NORMAL SAVE AkLA 

001003 

0121 

9b 80 

000b 

X 


bib 

Sbi*<ZHiSAZ+15*$Ab 

I b A1 5 

001006 

0123 

8b70 

8 OOF 


LbVXA 

LEV 

= Z'oGOO* + 15 

SUSPEnO TO LEvEL 1 5 

00100 7 

0145 

0000 




HLT 


LEV DIDN’T SUSPEND 

001006 





* 




0 0 1 0 0 9 





* NOW 

AT LVL 

15* btT UP FOR RTC KUPT TO LVL 5 

001010 





* 




00 io 11 

0126 

9B80 

OFAo 


LbVV15 

LAB 

SBI* <K T CbC 


001C14 

0148 

9b 60 

2303 



STd 

Sbi*<bA5P 


Oololb 

012m 

9B80 

2300 



LAb 

SB 1 * <bA3PV 


OOiulH 

Ol4C 

9b 80 

0005 

X 


bib 

SB1 * <ZHiSA2 + 5 *SAb 


001013 





*- - . 

... 



00 1 0 1 6 





* CAL IBK Alb CPU CLOCK. AGAINST rtc 


001017 





* 




OGlUlb 

012c. 

0380 

OF A2 


T I 

LNJ 

SB5 * <LAbLL 

SET ERROR LABlL 

GO 10 19 

0130 

5449 




DC 

•11* 

LABEL 1 

001020 

0131 

9800 

2 1 AO 



LOK 

$k1 * <RTCHZ 

GET RTC FREQ 

00102 1 

0133 

1 F02 




ML V 

Ski*=Z 


001022 

0134 

1 EG 1 




AOV 

ski » = 1 


001023 

0133 

9 FOO 

0000 

X 


bTR 

SRI*<LHKTC1 

INITIAL VALUE OF RjC 

001024 

013 7 

9 b 00 

0000 

X 


b FR 

SRI,<ZHKTCC 

CURREnI VALUt OF RfC 

m 001u2 3 

0139 

2C05 




LDV 

SR2 * = 5 


| 00102c 

0 1 3 A 

A FOO 

0000 

X 


bTR 

SR2 * <ZHK T CL 

SET RTC 10 RUPT AT LVL 3 

% 001027 

0130 

0380 

0Fb3 



LNJ 

SB5*<5YNCH 

CALIBRATL 

U0l02b 

013b 

0005 



RTCFA 

R TCP 


RTC P1 UN * T RUPT 

001029 

013b 

0000 




HlT 


REST AR1 

0O1O3O 

0140 

0b80 

0100 



b 

< S TmRT 


00 10 3 1 





************************************************************************ 

00103^ 





* TIMING LOOP 

bHOuLP NOW BE CALIBRATED 

001033 





* 




001034 

0142 

8900 

2182 


RLbOMb 

LbT 

<GOFLAG*=Z*0001* 

SET RESTART FLAG 


0144 

0001 







001033 





* 




001036 





* NOW 

DO MQOl 

1* CONFIGURE CHANNEL 

numbers 

001037 





* 




00103b 





MOOLI 

CALL 

ZV$T.ZVSUC*MSCHAN 

ASK QuLSUON "CHANNEL ?; ” 


0143 

FBCG 

0003 







014 7 

0380 

0000 

X 






0149 

Ob 80 








014 A 

2221 







001039 






CALL 

ZVSiH.CHAN 

GET CHANNEL (uEFAULT = 1*00) 


014b 

b BCO 

0003 







0140 

0360 

0000 

X 






014b 

OP 80 








013u 

22bA 







001U40 

0151 

0380 

0FA2 


MI 

LNj 

SB3 * <LABlL 

ERROR LABEL 

001041 

0153 

4049 




OC 

•Ml* 

LABEL 1 

001044 

0154 

9800 

22BA 



LOR 

SRI,<CHAN 

GET CHAN NO. 

001043 

0156 

9b8G 

22BB 



LAb 

SB 1 * < IOKLAP 

START UF CHANNELS TABLE 

00104^ 

0156 

AB80 

22D0 



LAb 

SB2*<CHANZ 

END OF CHANNELS TABLE 

00104 3 

015A 

9 AF 1 



MOOLIA 

bKM 

SR 1 * + SB1 * =Z * b tOO • 

CONFIGURt CHAn 


015b 

bbOO 







001U46 

0150 

9002 




CMB 

Sbl*=$B2 

CHECK IF END uF TABLE 

00104 1 

0150 

0200 

0 15 A 



dL 

<M00LIA 

LOOP dACK* NOT DONE 

001046 





* 




001049 





* NOW 

check THAT AT LEAST ONE DEVICE APAPILK IS uN LlNF RY 

00105U 





* CHECKING 10 

COPLb, BUT FIRST SET 

UP P0K NUN-EX i STANj DEVICE 

001051 





* TRAP 




001052 





* 




001053 

015b 

9B80 

2311 



LAB 

SB1*<ISA1 


001054 

0161 

9b 80 

0000 

X 


bTb 

SB1*<ZHNTbA 


001055 

0163 

9F60 

2311 



bTb 

SBl*<T SA1 

SO wE PON»T GlT TSa FULL RUPT 

001056 

0165 

8700 

21B7 



CL 

< TEMP A 

WILL StT IF GOOD IQ FOUND 

001057 

0167 

AB60 

0203 



LAb 

$B2,<M0PUF 

TRAP HANDLER 

00i05b 

0169 

AF 60 

0000 

X 


STB 

Sb2,<ZHTH15 

STQRt IN TRAP 15 VECTOR 

001059 





* 




001060 

0 1 6b 

8753 




CL 

= $R3 

DRIVE INDEX AnD COUNTER 

001061 

0160 

A830 

20 F6 


MODE lb 

LPR 

SR2*<PRIVE0.SR3 

START W11H DRIVE 0 

OOIO 64 

016 b 

AA80 

22 C6 



SRM 

$R2,<1NIDEN,=2*0180* 

SET CHANNEL AuDRESs 


0170 

0180 







001063 

0171 

AAfaO 

22C3 



bRM 

SR2*<lNbPC*=Z*0180* 

SET CHANNEL AuDKESs 


0173 

0180 







0010 64 

0174 

AA60 

22C5 



bRM 

sR2 *<INFIRM * = 2*0180* 

SET CHANNEL AuDRES$ 

m 

01 7o 

0180 







m 001065 

0177 

AA80 

22CF 



bKM 

SR2 * < 1NWAIT * = 2*0160* 

SET CHANNEL ADDRESS 


0179 

0180 







001066 

017A 

AA80 

22CD 



bRM 

SR2*<1NSTW2*=2*0180* 

SET CHANNEL ADDRESS 


0170 

0160 
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U 010 6 7 

0170 

8755 




CL 

= $K5 

CLEAR 10 RECEIVE Id CODE 


001068 

017E 

8055 



MODE IC 

10 

= $R5 »<IN1 DEN 

GET ID 



017F 

0000 

22C6 







00106V 

0181 

07F0 




bl OF 

>MODEIC 



001070 

0182 

DFOO 

2 lbb 



STR 

S»K5,<TEMPb 

SAVE ID FOR A WHILf 


001071 

0184 

0570 

FFEO 



AND 

$R5,=2 * FFEO• 

MASK IMPORTANT BITS 


001072 

0166 

0970 

2040 



CMR 

$R5 , = 2 * 2040 • 

IS IT A 1 APE DRIVE ? 


001073 

0188 

0980 

0 1F1 



biMt 

<HODtlE 

B IF NOT A TAPE 


001074 

018 A 

8900 

2167 



LbT 

<TEMPA,=1 

SET FLAG* TAPl IDENTIFIED 



018C 

0001 








001076 

0160 

0500 

01 AO 



bbT 

<modeid 

b IF following info already 

RCVD 

001076 

018F 

8000 

20E6 


bDCio 

10 

<bDC ,<INbDC 

GET BDC TYPE (2 OR 3) 



0191 

0000 

22C3 







001077 

0193 

07 FC 




bluF 

>BDCI0 



001o7b 

0194 

8052 



FIRMIO 

10 

s$Rc,<INFIRM 

GET FIRMWARE kEV 



0195 

0000 

22C5 







00 107 V 

019 7 

07F0 




BIOF 

>FIkHIO 



GO 1060 

0196 

2048 




SuR 

$R2 ,8 

RIGHT JUSTIFY IT 


001081 

0199 

AFOO 

2180 



STR 

$R2,<FIRM 

SAVE H FOR RtPOKT 


001082 

0 1 90 

6000 

22B4 


WTLP 

10 

<WA1TLP»<INWAiT 

GET WAIT LOOP LOCATION 



0190 

0000 

22CF 







001083 

019F 

07FC 




blOF 

>WTLP 



001084 





* 





001086 

01 AO 

6000 

21B5 


MODE 10 

W 

<STAt 2,<INSTW2 

GET STATUS WORD 2 



01A2 

0000 

22C0 







001086 

01A4 

07FC 




BIOF 

>H0DE1D 



001087 

01A5 

bA80 

2228 



SKM 

$R3,<MSDENS+3*=3 

SET MESSAGE TO REPORT DRIVE 

NMBK 


0 1A 7 

0003 








001086 

01A6 

8280 

2 1B5 



Lb 

<STAT2 *=2 1 8000• 

CHECK IF ON UNE 



01AA 

8000 








001089 

0 1 Aj3 

0511 




bbT 

>MODtIJ 

B IF ON LINE* OK 


001090 

01 AC 

8C60 

2231 



LD1 

<MSUOWN 

GET "OFF LINE” MESSAGE 


001091 

01 At 

6D00 

222C 



SDi 

<HSuENS>7 

SAVE II FOR RlPORT 


001092 

oibo 

6C80 

2233 



LDI 

<MSDUWN+ 2 



001093 

01b2 

8D00 

222E 



SDI 

<MSUENS+9 



001094 






CALL 

2 VST.ZVsTC,MSDENB 

REPORT "OFF LiNE” 



01B4 

FBCO 

0003 








01b6 

D380 

0000 

X 







0106 

OF 80 









0ib9 

2225 








001096 

OibA 

OF 80 

01 F1 



b 

<MOutIt 

GO ON 10 NEXT DRIVE 


001096 

01BC 

6280 

21B5 


MODE IJ 

Lb 

<STAT2,=Z*1000* 

CHECK FOR HI UR LO DENSIIY 



Olbt 

1000 








001097 

OlbF 

059b 




bbF 

>M0DE1H 

b IF NKZ1 (IE. LOW DENSITY) 


001096 





* 





001099 





* APPEARS TO 

Dt A P.E. DRIVE (HIGH 

DENSITY) 


001100 





* 





001101 

01C0 

8C60 

227b 



LDI 

<MSPt 

GET PE MESSAGL 


001102 

01C2 

6000 

222C 



SDI 

<MSDENS-f 7 

SAVE FUR REPORT 


001103 

01C4 

6C60 

2270 



LDI 

<MSPt + 2 



001104 

0 1 C6 

8000 

222E 



SDI 

<MSDE'NS + 9 



001106 






CALL 

4 V $ 1• ZVST C ,MSJENS 

REPORT DRIVE FINDINGS 



01C8 

FBCO 

0003 








01 Cm 

0380 

0000 

X 







01CC 

OF 80 









01CO 

2225 








001106 

OlCt 

8280 

2 1 b8 



Lb 

<TEi v iPb * =2 * 0008 • 

CHECK PE BIT iN ID 



0100 

000b 








001107 

0101 

0504 




bbT 

>MODt1G 

b if siai and id agree 


001 lOti 

0102 

0380 

1030 



LNJ 

SB5,<FNER 

STAT SAYS P.E., ID DOESN’T 


001109 

0104 

3035 



FNER05 

DC 

*05* 

LABEL2 


001110 

0105 

9870 

1000 


MODE IG 

LOR 

SRI, =2*1000* 



001111 

0107 

9F30 

20FA 



STk 

SRI,<DXDENS.S^3 

StT DENSITY MmSK 


001112 

0109 

0F96 




b 

>M0uE1t 

ChECK NEXT DRIVE IF ANY 


001113 





* 





001114 





* APPEARS TO 

BE AN NR21 DRIvt (LOW 

DENSITY) 


001116 





* 





001116 

010A 

8C60 

2c66 


MODE IH 

LDI 

<MSNR2I 

GET NK4I MESS*Gt 


001117 

01 DC 

8000 

222C 



SDI 

<MSi>tNS + 7 

SAVE FUR REPORT 


001116 

010E 

8C8C 

2268 



LDI 

<MSnRZ1+ 2 



00 1 i 1 9 

01E0 

8000 

222E 



SDI 

<MSDtNS*9 



001120 






CALL 

ZV$T.ZVSTC,MSJENS 

report drive findings 



oitc 

FBCO 

0003 








01E4 

0360 

0000 

X 







0 116 

0F80 









01E7 

2226 








001121 

Oltb 

8280 

2 1 bb 



Lb 

<TEmPB,=2*0004* 

CHECK NRZI bl1 IN ID 



01EA 

0004 








001122 

Olto 

0504 




bbT 

>MODEiI 

B IF SIAI AND ID A^REE 


001123 

OltC 

0380 

1030 



LNJ 

SB5,<FNER 

STAT SAYS NR21, ID DOESN’T 


001124 

Oitt 

3036 



FNEK06 

DC 

*06* 

LABEL2 


001126 

OiEF 

8730 

20FA 


MODE II 

CL 

<DXbENS.SR3 

CLEAR DENSITY MASK 


001126 





* 





001127 

0 1 F 1 

8A03 



HOLE It 

INC 

= SR3 

ChECK NEXT DkiVt 


001126 

01F2 

3003 




CMV 

SK3,^3 



001129 

OIF3 

0360 

016C 



DLE 

<MODE1B 

GO BACK FOR NeXT DRIVE 


001130 






— — — 




001131 





* ALL FOUR DLVlCt ADDRESSES CHECKED, TEST THE FLaG 


001132 





* 





001133 

01F5 

9B80 

OF 9 A 



LAB 

SB1*<TH15 

SET UP FOR FUTURE... 


001134 

01F 7 

9F80 

0000 

X 


STB 

SB1,<ZHTH15 

...MISSING RESOURCE TRAPS. 


001136 

01F9 

8280 

21B7 



Lb 

<T tMPA, = 2*0001» 




0 1 Fb 

0001 








001136 

01 PC 

0500 

0208 



bbT 

<GL1bDC 

FLAG UK, CONTINUE 


001137 

01 Ft 

0360 

1030 



LNJ 

Sb5,<F NER 

NO DEVICt ON lINE 


001136 

0200 

4E44 



FNtRNb 

DC 

»ND» 

L ABtL2 


001139 

0201 

*. OF80 

0208 



b 

<GE1bDC 



001 14U 






- — — 




001141 

0203 

9B80 

01F 1 


MODE IF 

LAb 

SB 1 , <MODEIE 

RESUME SCAN AT MODE IE 


00114<c 

0c06 

9F60 

2317 



STB 

SB 1 , < TSAIP 



001143 

0207 

0003 




KTT 


RETURN FROM 1 kAP 


001144 





ft*********************************************************************** 

001146 





* REPORT CONTKOLLtR FIRMWARE LuAD 

AND REV NUMBER 


001146 





* 





001147 

0c06 

9800 

20E8 


GETbDC 

LDR 

:bRl ,<bDC 

look at bDe identifier 


001148 

02 0 A 

9970 

BDC3 



CMR 

SKI , = Z*bDC3« 



001149 

020C 

0906 




BE 

>BDC3 

b IF bDC3, ELbE... 


001150 





* 





001151 





* F1RHwARt IS "bDC2” 



00115c 





* 





001153 

0200 

9870 

4332 



LdR 

SR 1 , =A•C2 » 

ASCII ”CZ" 


001154 

0 2 0 F 

9 FOG 

2248 



STR 

SRI ,<MSF1RM+1 

SET "bDC2” MESSAGE 


001155 

Ocli 

6700 

20E9 



CL 

<BDCFLG 

CLEAR FLAG FOR bDCz 




4 .X 
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NINE 
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PE/NRZI 
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0OU5o 

0213 

UF6b 




b 

>PKMSG 

CONTINUE 

001157 





* 




001156 





* FlRMwAKt lb 

M 6DC3 M 


001159 





* 




M 0U116U 

0214 

9870 

4333 


bDC3 

LDR 

SRI » = A«C3* 

ASCII ” C 3 M 

m 001161 

021 o 

9F GO 

2248 



STR 

SR 1»<MSFIRM*1 

SET "BDC3” MtsSAGE 

0011 62 

021 b 

6900 

20E9 



LbT 

<BDCFLO» s1 

SET "BDC3" FLaG 


02 1A 

0001 







001163 





* 




001164 





* NOW 

GET FlkhwARt REVISION NUMbtk 

001165 





* 




001 i6t> 





PRMSG 

Call 

ZV$I#ZV$TC»MSFIRH 

print "bdc- Firmware rev” 


021 b 

FbCO 

U003 







02 1D 

D380 

0000 

X 






02 if" 

OF 60 








0220 

2247 







00116/ 






CALL 

2 VSIH,FIRH 

PRINT I HE FIRMWARE REV NUMBtK 


0221 

FbOO 

0003 







0663 

0380 

0000 

X 






0623 

OF 8 0 








0226 

2160 







00116b 

0627 

0380 

1630 



LNJ 

$B5 *<QLTkUN 

run qlt and check results 

001169 





******* ***************************************************** ************ 

001170 





* SELECT DRIVES AND TESTS Tj BE 

performed 

001171 





* 




00117c 

0269 

0380 

1634 


RESTRT 

LNJ 

$b5 * <CLKMOD 

CLEAR 10 MODEj -0 -1 .2 -3 

001173 





* 




001174 

0 2 2u 

9080 

2311 



lab 

Sbl»<TSA1 

FIRST IRAP SAvE AREA 

001173 

0660 

9P 80 

0000 

A 


STB 

SB1* <ZHNT SA 


00117b 

0 2 6 F 

9080 

030b 



LAb 

3>blt<X0 

START OF SEQUENCER 

001177 

0231 

9 F 8 0 

1 02 F 



SIb 

*blt<SENSb5 

RETURN ADDRESo FOR «SENSt" FIRST TIME 

001176 

0635 

8 700 

2112 



CL 

<EOT FLO 

LND-OF-TAPt FlAg 

001179 

0233 

8700 

20E7 



CL 

<AUF L 

TtST AO OPERAlION FLAG 

001 180 





*- - • 




001181 





* REPORT CURRENT HOPES AND ASK " 

NEXT ?:” 

001186 





* 




001183 

023 / 

0005 



NEXT 

KTCF 


STOP THE CLQCn 

001184 

023c 

1C05 




LDV 

Ski»=3 


001183 

0239 

9 F 00 

0000 

A 


STR 

SRI»<ZHKTCL 

SET RTC TO LVl 5 

001186 

023b 

0380 

1628 



LNJ 

SB5 * <CRLF 

DO A LINt-FEtw 

001187 

063 0 

2 CFC 




LDV 

SR2»= -4 


001188 

02 31 

9820 

2106 


NEXTA 

LDR 

Ski»<DXMD+4«SR2 


001169 

0240 

0360 

OF Cb 



LNJ 

SB5 *<VDIR 

PRINT 2 ASCII CHARS FROM Rl (MODE) 

001190 

0242 

9870 

2024 



LDR 

SR 1 * = • S» 


001191 

0244 

0360 

OFCb 



LNJ 

$B5 *<VDTR 

PRINT SINGLE sPACE 

001196 

024o 

2780 

023E 



blNC 

SR2*<NEXTA 

GO BACK FOR MuRE 

001193 






CALL 

ZV$T.ZV$G,MSNEXT 

(PRINT QUESTION NEXT ?: ) 


0646 

FBCO 

0003 







024A 

0380 

0000 

X 






0240 

OF 80 








024D 

2262 







001194 

0240 

8 700 

219F 



CL 

<RNoPLG 

FLAG FOR ZERO RANGE IN DEBUG MODE 

001193 

0250 

6700 

2181 



CL 

<FLAG 

BIT 14=CR DETtCTED, BIT 15=DRIVE MODIFIED 

0GU96 





NtXTC 

CALL 

ZV$iA,ZVSTAT,TEMPA 

,UC8 (GET ASCII SODE) 


0252 

FbCO 

0003 







0254 

0380 

0000 

X 





i 

0256 

OF 80 







1 

025 I 

2 1 CO 







\ 

0258 

21 b7 








0239 

2 OF 1 







001197 

02 5 A 

9800 

2 1 CO 



LOR 

Ski»<ZVSTAT 

GET STATUS 

001196 

0250 

8390 

025L 



JMP 

<NEaTB.SR1 


001199 

025t 

0F7F 



NEXTB 

NOP 

>S-1 

STATUS ERROR 

00 16 Oo 

0651- 

0 F 7 F 




NOP 

>$-l 

BREAK 

001601 

0260 

OF 07 




b 

>NExT 

RUBOUT 

001206 

0261 

OF85 




b 

>NtATt 

COMMA 

0U1203 

026 6 

UF7F 




NOP 

>S-i 

C/R 

001604 





* 




001605 

0263 

8900 

2181 



LbT 

<FLaGi =2• 0002 • 

SET FLAG* CR oETECTLD 


C2o5 

0002 







001606 

0266 

2C01 



NEXT E 

LDV 

SR2 » = 1 

SET INDEX FOR LDH TO FOLLOW 

ouuo/ 

026 7 

bOAO 

2 1 b7 



LDh 

SR3 *<TEHPA.$R2 

GET HIGH! BYT,. OF NEW SELECTION 

OUUOfa 

0269 

3030 




CHV 

*R3,=»0» 

ASCII ”0” 

001609 

0 2 6 A 

0203 




bL 

>NtXT J 

B IF INVALID INPUT, CHECK FOR C/R 

001610 

026 b 

3034 




CHV 

SR3*=»4* 

ASCII "4" 

001611 

0260 

0204 




be 

>NEaTI 


001616 

0260 

3000 



NEXT J 

CHV 

$k3 *sZ*Ob* 

CHECK FOR C/R 

001613 

0660 

0980 

02A4 



bNL 

<NEXT K 

b if wasnh c/r, invalid input 

001614 

0670 

0570 

0003 


NEXT I 

AND 

SR3 % ~Z 1 0003 1 

MASK OFF UNUStD BITS 

001613 

0272 

OF 00 

20EA 



ST k 

&R3 * <blTt 

DRIVE NUMBER mND TEMP INDEX 

00121 c 

0274 

9800 

2 1 b 7 



LDR 

SRI»<TtHPA 

GET MODE 

0 0 16 1 7 

027c 

1048 




Suk 

SRI *8 

RIGHT JUSTIFY IT 

00 i 6 1 6 





* 




001619 

06 7 7 

1000 




CHV 

SRI,=X»OD» 

C/K FOR NO CHmNGE 

001620 

0276 

0900 

02EU 



bt 

<NEaTF 


001221 

027m 

1045 




CHV 

SRI»=*t• 

E FOR PRINT EkRORS AS THEY OCCUR 

001262 

027b 

0900 

0396 



BL 

<MOoLt 


00U23 

02 70 

1046 




CHV 

SRUstF* 

F FOR FILES PlR PASS 

001224 

0270 

0900 

OF 7A 



bE 

<H00tF 


001223 

0280 

1049 




CHV 

SR 1»= • I * 

I FOR IDENTIFICATION 

001626 

066 1 

0900 

0145 



bt 

<MOoEI 


001627 

0283 

1040 




CHV 

SRI*=»M» 

M FOR MODIFY aND PATCH ROUTINE 

001626 

0284 

0900 

1745 



BE 

<PCr» 


001229 

0286 

1050 




CHV 

$R1»5»P* 

P FOR PRINT EkROK TABLE 

00i63o 

026 7 

0900 

03bb 



bt 

<MUbEP 


001631 

0269 

1053 




CHV 

SR 1*=•5 * 

S FOR RESTART 

001632 

026A 

0900 

0100 



Bt 

<stakt 


001233 

0260 

1058 




CHV 

SR 1 * - 1 X 1 

X FOR SUPPRtSs ERROR REPORTS 

001234 

0260 

O900 

039 A 



BE 

<MOoEX 


001233 

02 6 F 

1D5A 




CHV 

4>R 1 »= • Z * 

Z FOR QLT TtST MODE 

001636 

0690 

U900 

039F 



bt 

<MObtZ 


001237 

0292 

1041 




CHV 

$R1 ♦ =• A* 

AN FOR ALL TtsTS* DRIVE N 

0012 3b 

0693 

0900 

02 AC 



bt 

<MODtAO 


001239 

0695 

1044 




CHV 

SRi»-»D» 

DN FOR DtBUG » DRIVE N 

001640 

0296 

0900 

0C3C 



bL 

<MQutb 


001241 

0296 

1051 




CHV 

SRI*=»Q« 

QN FOR QUICK ALL* DRIVE N 

001642 

0299 

0900 

02 AC 



bt 

<MODEAQ 


001645 

029b 

1052 




ChV 

SRI *= »R« 

RN FOR READ OnLY* DRIVE N 

f 001244 

0290 

0900 

02 b0 



bt 

<MOotRW 


I 001245 

0690 

1057 




CHV 

SRI *=• W» 

WN FOR WRITE uNLY » DRIVE N 

00U46 

U69F 

0900 

02B0 



Dt 

<HOotRW 


001147 

02 Ai 

1020 




CHv 

sRl»=»-» 

-N FOR DELETE DRIVE N 

00 i 646 

02A6 

0900 

02B4 



BE 

<MZ i P 

DELETE 




T IILL MTUS3,»REV G» 
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001249 





NEXT K 

CALL 

ZVSi .ZVSTC.MSii 


02A4 

F BCG 

0003 






0 * A6 

0360 

0000 

X 





0*Ab 

0 F 6 0 







02A9 

2250 






001 * 5u 

02AA 

0F60 

0237 



b 

<NEXT 

001*51 





**************************** 

001252 





* MODES A 0 

R w OR DELETE (-I 

001*53 





* 



001254 

0 * Ac 

9060 

2323 


MODEAQ 

LAO 

Sbl*<SEQN 

001*55 

02 At 

OF 80 

0208 



b 

<CMNA 

001 * 5b 





* 



001*5 I 

0 *b0 

9060 

232F 


MODERW 

LAO 

$bl*<SEQ1 

001 * 5b 

02 b* 

OF 80 

0208 



b 

<CMNA 

001*59 





* 



001260 

02b4 

0800 

20EA 


MZIP 

LDR 

Sk3,<bITE 

001*61 

0*Bo 

9C00 

210A 



LUO 

SB 1 * <DXPT• $R3 

001 *6* 





* 



001*63 

0 *ob 

Dboo 

20EA 


CMNA 

LDR 

$R3 * <B1Tt 

001*64 

UZbA 

9F00 

2 10A 



STB 

SB 1 , <DXPT• $R3 

001*66 





* 



001*66 

02BC 

9670 

2D30 



LdR 

sRl*=»-o* 

001*67 

c*bt 

9A53 




ADD 

SRl»=SR3 

00126o 

02 oF 

9 F 3 0 

210 * 



STR 

ski ,<DXMD.SR3 

Gu 1269 





* 



001*70 

02 C1 

9800 

20EA 



LDR 

SR 1»<biT E 

001*71 

OzCj 

1007 




SUL 

SR 1.7 

001*7* 

02 C* 

9900 

2 OF 5 



Cmk 

SR 1 * <DR1VE 

001*73 

02 Cb 

0980 

O2C0 



ONE 

<CMNC 

001*74 

02Cb 

8900 

2181 



LOT 

< FLAG * = 2 * 0001 * 


02CA 

0001 






001*75 





* 



001*76 





* CHECK IF 

PRIOR lRROR HiSTUI 

001*77 





* 



00127b 

0*Cb 

3CFC 



CMNC 

LuV 

SR3 * =-4 

Qu1*79 

o*cc 

9000 

2106 


CMND 

LAO 

Sbl*<DXMD+4.4Ri 

001260 

02.CE 

9281 




LLH 

SRl.Sbl 

001261 

02CF 

1D2D 




CMV 

SRI,=X»2D* 

001*62 

0*D0 

0990 




bNE 

>CMNB 

001*63 

0 *D1 

3 7 F 0 




blNC 

SR 3 * >CMND 


001 c 84 
001*85 
00i£ 86 
0 0 i * 8 7 


NO MATCH* TRY again 


5TART OF SEQ I ABLE FOR A* 


START OF StU {ABLE FOR R* 


GET INDEX 

GOT OLD POINTER INTO SEQN TABLE 

GET INDEX FOR MODEr, mOOEA 
SAVE NEW PNTR TO SeqN TAbLE 

SET NEW MODE 10 -N WHILE WE CHECK... 
IF OTHER MGDE;> ARE NOT A 0 K OR W... 
THEN ERR TAbLl WILL BE CLEARED* ETC. 

GET NEW DRIVE NUMBER 

CHECK AGAINST CURRENT DRIVE 
B IF CURRENT wNIT NOT BEING MODIFIED 
SET FLAG* CURRENT UNIT MODIFIED 


GET^LEFT HALF OF "MODE” 

B IF ONE OF ThE UNITS IS NO) A "DASH” 
TRY NEXT UNIT 


* CLEAN ERROR TAbLE AND COUNTER 

* 

CALL *V$F , ERTb ♦ NULL * ERLNTli (BUF* PIRN* rtNG) 


00 i*8b 

02 Da 

8700 

2113 


Cl 

<ERCT 

total error count 

001*89 

0* DC 

9B80 

2119 


LAB 

SB1»<LKTB 


001*90 

001*91 

0 * Dt 

9F80 

217D 

* 

STB 

SOI*<ERTBPT 

running POINTlR THROUGH ERTb 

001*9* 

0* EO 

0800 

20EA 

CMNB 

LDR 

SR3 * <blTE 

GET NEW DRIVE NMbK 

001*93 

02E2 

9800 

2107 


LDR 

SKI*<TEMPA 

GET MODE 

00129* 

021 * 

9F30 

2102 


STR 

SR 1 * <DXMD•$R3 

SAVE NEW MODE 

001*95 

02 Eo 

8730 

20FE 


Cl 

<DXFN.SK3 

CLEAR FILE COuNT 

001296 

02 tb 

8 7 30 

2 1OE 


Cl 

<DXKN•SR 3 

CLEAR RECORD lQUNT 

001*97 

02EA 

1C01 



LUV 

sRl*=1 


00129b 

001299 

0 * tb 

9F30 

2106 

* 

STR 

$R1 * <DXPS.SR3 

SET DRIVt PASo COUNT TO UNE 

0 0 1 3 0 0 

02LD 

8280 

2181 

NEXTF 

Lb 

<FLaG* = 2 * 0002 * 

CHECK IF CR DlTECTed 


02 EF 

000 * 





001301 

02 FO 

0580 

0252 


bbF 

<NEaTC 

b IF NU CR, GlT MUre 

00130* 

0* F* 

O800 

2193 


LDR 

SR3,<R3H0LD 

RESTORE UNIT INDEX 

001303 

02F4 

8280 

2161 


Lo 

<FLmG* = 2 * 0001 * 

CHECK IF MODIFIED 


0 *F6 

0001 






001304 

0 * F 7 

050* 



boT 

>NEa 1 G 

b if currently running mude modified 

001305 

02 F b 

DC60 

102 F 


LDB 

SB5 * < StNSb5 

001306 

02 FA 

6365 



JMP 

sb5 

RETURN TU INTERRUPTING ROUTINE 


001307 

00130b 

001309 

001310 


* CURRENT Tt 

* CUNFiuuRAT 

* 


001311 

0* F D 

6000 

22A9 

NEXTG 

iu 

<NORMAL »<OTCQNF 


0*FU 

0000 

220 D 




0013 1 2 

OzFF 

07FC 



010F 

>NEA)G 

001313 

0300 

0360 

16E0 


LNj 

Sb5,<1N12 

00131* 

0302 

D360 

033C 


lnj 

sb6,<MARW 

001316 

0304 

9CbO 

0307 


LDB 

SB1,<NEXTH.$R3 

001316 

0306 

8361 



JMP 

sbl 

001317 




* 



00 1 3 1 o 

0307 

031 F 


NEATH 

DC 

<X1 

001319 

030b 

0326 



DC 

<X2 

001320 

0309 

0331 



DC 

<X3 

001321 

030A 

0300 



DC 

<X0 

00132* 




*****************************1 

001323 




* DU 

TtSTS, 

KLSEKVt b6 EXCLuS 

001^24 




# 



001325 

030 b 

D380 

100 F 

xo 

LNJ 

Sb5,< SENSE 

001326 

030D 

2 CFC 



LDV 

SR2,=-4 

001327 

030t 

9b6Q 

2102 


LAB 

sbl,<DXMD 

001326 

0310 

90F 1 


XOA 

LDH 

sri • ♦sbi 

001329 

0311 

1D2D 



CMV 

SRl*=»-» 

001330 

0312 

0984 



bNE 

>XOl> 

00133i 

0313 

27FD 



blNC 

SR2,>XUA 

00133* 

0314 

0F60 

02 3 7 


b 

<NEXT 

OU1333 

0316 

3C00 


XOO 

LDV 

SR3,=0 

001334 

0317 

D360 

0347 


LNJ 

Sb5 * <CUMX 

001335 

0319 

OF 86 



b 

>X1 

001336 




* 



001337 

03 1A 

9C00 

210A 


LDb 

Sbl»<DXPT.4R3 

00133b 

031C 

E389 



LNJ 

S06* *Sb 1 

001339 

03 IU 

D360 

033C 


LNJ 

SB5,<MAKw 

001340 




* 



001341 

03 IF 

3C01 


XI 

LDV 

SR3 , = 1 

00134* 

0320 

0380 

0347 


LNJ 

Sb5,<C0MX 

001343 

0322 

OF 86 



b 

>X2 

001344 




* 



001345 

0323 

9C00 

2 10A 


LDd 

Sbl*<DXPT.SR3 

001346 

0326 

E389 



LNJ 

$b6,*sbi 

001347 

0326 

D380 

033C 


LNJ 

Sb5 ,<marw 


ST CANCELLED. CLEAR POSSIBLE DIAGNQSHC OR ABNORMAL 

iun modes. 

<NOKMAL<<OTCQNF (OUTPUT NORMAl CONFIGURATION) 


INITIALIZE MTc* ETC. 

ADVANCE SEQUENCE POINTERS, ETC. 

DO NEXT TEST lN SEQUENCE 


SEE IF NEW MODE REQUESTED 
COUNT 4 UNITS 

mode table 

GET MODE BYTE 
IS IT A '’DASH” ? 

B IF NUT DASH* MODE WAS SELECTED 

TRY FOR ANQTHcR UNij 

NOTHING SELECTED* GO TO "NEXT?” 

SET INDEX 

CHECK MODE LIjT* ACTIVE* REWIND* ETC. 
SKIP THIS UNIJ 

bl NOW POINTS TO SEQN TABLE 
DO THE TEST 













TITLE MTUb3t* 

RtV G< 

1 NINE 

TRACK 

PE/NRZI 

MAG TAPE T6V (SAF) 
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00b4B 





* 




OU1349 

0 b2b 

3002 



X2 

LDV 

SR3*=2 


OOi;>5u 

0329 

0380 

0347 



LNJ 

SB5 *<COMX 


U 001351 

032b 

0686 




b 

>X3 


1 GU1352 





* 




00 I 3b3 

0 3 *L 

90B0 

2 1OA 



LDb 

$B 1 *<DXPT • $R3 


GUIj54 

032c 

L389 




LNJ 

SB6,*$B1 


00135b 

032 F 

0380 

033C 



LNJ 

SB5 * <MARW 


001356 





* 




00135 7 

03 31 

3003 



X3 

LDV 

$R3,=3 


00135b 

033* 

0380 

034 7 



LNJ 

i»b5,<C0MX 


001359 

0334 

060 7 




b 

>X0 


00136U 





* 




Q01361 

0335 

9CbO 

2 10 A 



Lub 

$bl9<DXPT.$R3 


00136* 

0337 

L389 




LNJ 

4B6,*$B1 


001363 

0338 

0380 

033C 



LNJ 

$65 *<MAKw 


00136* 

033 A 

06 bO 

030b 



b 

<X0 

GO TO IOP OF cOOP 

001365 





************************************************************************ 

001366 





* RESET MODE 

SEOUENCE POINTtK IF END OF LIST 

001367 





* 




00136b 

033C 

90b0 

210A 


MAKW 

LD6 

$bl*<DXPT.$R3 


001369 

033t 

9B01 

0001 



LAB 

$bl♦Sbl.SAF 


001370 

0340 

8089 




CMN 

*$B1 


001371 

0341 

0983 




6 NE 

>MAKWA 


00137* 





* 




001373 

034* 

9680 

23*6 



LAb 

$bl*<SEol 

STAkT of seq iable for data tests 

001374 

0344 

9FB0 

2 10 A 


MARwA 

STB 

$61*<DXPT.$R3 


001375 

0346 

8385 




JMP 

$b 5 

RETURN 

001376 





************************************************************************* 

001377 





* DECIDE wHEThtR UK NOT TO 1LbT NEXT UNIT 

00137b 





* 




001379 

034 7 

0F80 

0395 


cohx 

STb 

$B5 *<CUMXbS 

SAVE b5 FOR kcTUKN 

001360 

0349 

9830 

2102 



LDR 

SKI*<DXMD.iR3 

GET MODE 

001381 

034b 

1048 




SUK 

sk 1 *8 

PUT ”MUDE M in right byte 

00138* 

0340 

1020 




CMV 

SR 1 * =X•2D• 

IS IT A DASH? 

001383 

0 340 

0980 

0350 



bNE 

<COhXA 

B IF NUT A DA^H* TEST DeSIR tD 

001384 

0346 

8385 




JMP 

*65 

RETURN 

001385 





* 




001386 

0350 

9080 

0005 

X 

COMXA 

LDb 

$61 *<ZH1SAZ*5*$A6 


00138 7 

035* 

AC80 

OOOA 

X 


LUb 

Sb2*<ZHlSAZ*10*SAF 


001388 

03 54 

bB80 

036b 



LAb 

$b3 * < COMXC 


001389 

0356 

bF80 

2306 



STB 

$b3 *<SA15P 


001390 





* 




001391 

0358 

0680 

UOOO 

X 


LAb 

SB4,<ZH1SAZ 

START OF IV»S 

00139* 

035m 

0B80 

003F 

X 


LAb 

$b5t<4.HASA2>63*$AF 

END OF IV»S 

001393 

0350 

8774 



C0MX6 

CL 

♦ $b4 

CLEAR THE VECIOR 

00139* 

0350 

0005 




CMb 

$B4,=$b5 

DONE YET ? 

001395 

035c 

036 E 




bLE 

>C0MX6 

6 IF NOT DONE YET 

001396 

0356 

0680 

230C 



LAb 

$64 * < SA15DV 

LVL 15 SAVE AkEA 

001397 

0361 

0680 

0006 

X 


STb 

$B4,<ZHISAZ+15*$AF 

SAVE IT IN VEuTOR 

001396 





* 




001399 

0363 

8051 




STS 

= $Ki 

GET STATUS 60k CP RUPT LVL 

001400 

0364 

9570 

003 F 



AND 

$R1* = X»3F • 


001401 

0366 

i DOF 




CMV 

$R1 * = 15 

IS IT 15 ? 

. 00140* 

0367 

0904 




bb 

>COMXC 

IF LVL ALREADY 15* DON•T SUSPEND 

£ 001*03 

0368 

8E70 

oOQF 


LEVXB 

LtV 

= Z * 8000 *♦15 


( 00140* 

036 A 

0000 




HLT 


NOT SE f UP FOR A SECOND INTERRUPT 

\ , 001405 





* 




001406 





* NOW 

AT LEVEL 15* CONTINUE 


001407 





* 




001 *0b 

036b 

9F8 0 

0005 

X 

COMXC 

STb 

$619<ZHISAZ*5*$A6 


001409 

0360 

AF 80 

OOOA 

X 


STb 

$62♦<ZHlSAz+13*$AF 


001410 

0366 

9830 

20 F6 



LDR 

SRI,<DK1VE0,$R3 

GET DRIVE ADDRESS 

001*11 

0371 

9F00 

2 0 F 5 



STR 

$R1 * <DK1VE 

SAVE DRIVE ADDRESS 

00141* 

0373 

0380 

1341 



LNJ 

$B5t<SETCHN 

SET UP CHANNEL ADDRESSES 

001*13 

0375 

9870 

5830 



LDR 

$R1t=*XO* 


001414 

03 7 7 

9A53 




ADU 

$R1*=$K3 

ERROR LABEL 

001*15 

03 7b 

9600 

2186 



STR 

$R1 * <LABEL 1 

X0-X3 

001*16 

037 A 

8000 

2164 



10 

<STATI *<INSTW1 

GET FIRST STATUS WORD 


03 70 

0000 

22 CC 






001*17 

0370 

0 7 94 




61 OF 

>COMXD 

SKIP THE TEST 

001*18 

03 7F 

8280 

2164 



Lb 

<S T A I1 * =Z * 8000 * 

RDY ? 


0381 

8000 







001*19 

038* 

050E 




bbT 

>COMXb 

6 16 RDY* DO iHE TEST 

001420 

0383 

8280 

2164 



Lb 

<srAn *=z»400o* 

ATTN ? 


0385 

4000 







001421 

0386 

058C 




BBF 

>COMXD 

IF N/KDY BUT m/ATTn* DON'T DO TEST 

001 *2* 





* 




00142b 





* COT 

STATUS 

bUT ATTENTION aAS SET 

• 

00142* 





* REPORT AN cKROR AND DESELECT DRIvE FROM FURTHLk TESTING. 

001425 





* 




001426 

038 7 

9870 

2U4E 



LuR 

$k1 * = »-N » 

GET AN ASCII "DASH" 

001427 

0389 

9 AbO 

210 * 



SRM 

$R1*<DXMD.$R3*=Z»F600» DESELEU CUKRtNT DRIVE' 


038o 

F600 







001*28 

0380 

0380 

1030 



LNJ 

$B5 * <F NEK 

DEVICE N/RDY aITH ATTN blT bET 

001429 

03b t 

3034 



6NEK04 

DC 

• 04* 

LABEL2 

001430 

0386' 

0F83 




b 

>COMXD 

GO ON WITH NtxT TEST 

001431 





* 




00143* 

0390 

8 ABO 

0395 


COMXb 

INC 

<COMXB5*$A6-l 

INC B5 IN ORDcR TO DO THE TtST 

001433 

0392 

UC80 

0395 


COMXD 

LDB 

$65 * <C0MXB5 

RESTORt 65 

001434 

0394 

8385 




JMP 

$65 

RETURN 

001435 





* 




001*36 

0395 

0000 



COHXB5 

RESV 

$AF * 0 

SAVE bi> HERE 

001437 





************************************************************************ 

001*36 





* CLEAR FLAG 

TO RtPURT ERRORS NORMALLY 

001439 





* 




001440 

0396 

8700 

21 B6 


MODEL 

CL 

<SUPKES 


001441 

039b 

0680 

0237 



b 

<NExT 


00144* 





************************************************************************* 

001443 





* SET 

FLAG TJ 

SUPPRESS ERROR REPORTS 

001444 





* 




001445 

039A 

8900 

2166 


MODEX 

LBT 

<SUPRES9=Z'00J1• 



0390 

0001 







001446 

0390 

OF 80 

0237 



b 

<NEX 1 


001447 





************************************************************************ 

00144b 





* MODE 

L * RUN 

OLT CONTINUOUSLY AND 

CHECK RESULTS 

001449 





* 




m \ 001450 

0396 

8700 

2106 


MQDEZ 

CL 

<DXPS 

TOTAL PASS COUNTER 

■ 001451 

03 A1 

1C0A 



MODEZA 

LDV 

$R1*=10 


00145* 

03A2 

9F00 

2107 



STR 

$R1 * <DXPS+1 

COUNT 10 PASSES PER REPORT 

00145b 

03A4 

0 380 

1630 


modezb 

LNJ 

$65 * <OLTKUN 

DO ULT 

001*54 

03A6 

0380 

100 F 



LNJ 

$b5 * <SENSE 

DO WE WANT "NlXT ?:« 

001*55 

03Ab 

8 AbO 

2106 



INC 

<DXPS 

COUNT PASS 



TITLE MT0S3,»kEV G 


NINE TRACK PE/NRZJ MAC TARE T6V (5AF) 
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001456 

03 AA 

6880 

2107 

001457 

03 AC 

8980 

2107 

00 i45b 
001459 

03AE 

0A76 


001460 

03 AF 

FbCO 

0003 


03b 1 

D360 

0000 


0303 

0F60 



0304 

227 F 


001461 

0305 

FbCO 

0003 


0307 

D360 

0000 


03o9 

0 F 8 0 



03bA 

2106 


001 a6 Z 
001463 

0300 

OF 60 

Q3A1 

001 a64 
001465 
001466 

030D 

D360 

1634 

001467 

001466 

03 OF 

9B60 

2119 

001469 

03C1 

8900 

218F 


03C3 

0001 


001-970 

03C4 

9671 


0GW7i 

03C5 

1900 

03FB 

001472 

001473 

030 

9F00 

2186 

00147a 

03C9 

9871 


001475 
001 a7o 

03CA 

9F00 

2187 

0 0 1 a 7 7 

03CC 

ACF1 


001476 

001479 

03CD 

AF60 

107C 

00 1 a80 

03CF 

9871 


001481 

03 DO 

9F00 

2114 

00148Z 

001483 

03D2 

9871 


001484 

001483 

03D3 

9F00 

2115 

001466 

03D3 

9871 


001487 

001486 

0306 

9F00 

2117 

001489 

03D6 

bCF 1 


001490 
001491 

0309 

bF8G 

2 1B3 

001492 

03Db 

9871 


001A9 3 
001a94 

03DC 

9 F 0 0 

2164 

00 1 a93 

03DE 

9871 


001496 

001497 

001496 

001499 

03DF 

9 FOG 

2 1B5 

001300 

001501 

03E1 

0380 

106D 

001802 

03E3 

9871 


001303 

001504 

03E4 

9FOO 

21B7 


U3Eo 

FBCO 

0003 


03E6 

D380 

0000 


03EA 

0F80 



03Eb 

2 1B7 


001505 

03EC 

8800 

2 1 8 F 


03EE 

0002 


001806 

03EP 

0587 


001307 

03FU 

DB80 

03F 6 

001806 

03 F 2 

DF80 

102F 

001809 
001 51o 

03F4 

OF 80 

0237 

001311 

03Fb 

AB80 

217D 

001312 

0 3 F 8 

9DD2 


001513 

03F9 

0200 

03C1 

001314 

03Fb 

DB80 

0237 

001313 

03 F o 

DF 80 

102 P 

001316 

001317 

001816 

001319 

001520 

001321 

001522 

03FF 

8385 



DEC 

<DXPS*1 

LOOP COUNT 

CMZ 

<DXPS+1 


dAG 

>MQDEZB 

b IF NOT DONE WITH pASS YET 

CALL 

ZVS1*ZVSTC»MSJLPS 

REPORT PASS CuUNT 


CALL ZV$ TH#ZVSTD»DXPS 


************ 

* MODE P, Rk 

* 

MQDEP 


* 

MPA 


<MOUtZA 
*************** 
iNT summary of 


KEEP LOOPING 
********************************************* 

FIRST TEN (10) ERRORS* 


LNJ 

LAB 

SB5 » <CLRMOD 
SB1,<ERTB 

CLEAR TO MODEJ -0 -i -2 -3 

START OF TABLl 

LdT 

<PFLAG,=1 

SET MOOE "P" FLAG (FOR ERR REPORTS) 

ldr 

BEZ 

STR 

SR 1i *Sbl 

SKI ,<MPDONE 
$R1, <LA6tEl 

b if Rtsi of i able empty 

LABtLl ASCII 

LDR 

STR 

SRI , +SB1 
$R 1, <LAbEL2 

LABEL2* ASCII 

LDd 

STB 

SB2 , + $61 

SB2,<FNtKF 

ERR LOC, HEX 

LDR 

STR 

SR 1 * + $B1 

SKI*<ERDR1V 

DRIVE NUMBER, HEX 

LDR 

STR 

SRI♦♦SB! 

SR 1«<ERFILE 

FILE NUMBER, HEX 

LDR 

STR 

SRU + SB1 
SR1»<ERREC 

RECORD NUMBER, HEX 

LDb 

STB 

SB3» +SBI 

SB3 * <SLDb 

DATA BUFFER AuDKESs, HEX 

LDR 

SIR 

SR 1 *♦SB 1 

SR 1 , <ST AT 1 

STATUS WORD 1, HEX 

LDR 

SIR 

SRI , + SBl 
$Ri,<STAT2 

STATUS WURD 2, HEX 

GO YE 

FORTH AND PRINT THE 

ERROR KEPURI 

LNJ 

S85i<FNERMP 

REPORT TOC ERROR SUMMARY 

LDR 

STR 

CALL 

SRl*♦SBi 

SRI»<TEMPA 

ZVSIH.ZVSTD,TtMPA 

PRINT PASS COuNT, DECIMAL 

LbF 

<PFLAG,s2 

WAS BkK DETEC I ED? CLR FLAG 

bBF 

LAB 

STB 

b 

>MPd 

*B5 ,<MPb 

Sb5 ,< SENSB5 
<NEa t 

B IF NO BRK FuUND, CONTINUE 

RETURN HtRt AFTtk C/R AT "NtXT?" 
SERVICE 1 HE BkEAK 

LAb 

CMb 

BL 

. LAB 
STB 
JMP 

S62,<EKTb+(8*2*$AF)*10 END OF BOFFc-R 

Sbl,=$62 

<MPa LOOP bACK FOR MORE 

SB5 ♦<NEXT SET UP FUR Kt1 URN 

SB5 , <SENS65 C/K SHOULDN'T GET BACK IN-LINE 

SB5 GO TO IT 


* 

MPb 


************************************************************************ 

* 

* NEXT FOLLOWS MOuE "A"* FIRST COME THE TURN-AkUuND AND OTHER 

* DIAGNOSTIC TESTS* THEN COME THE NORMAL DATA TRANSFER TESTS* 

* 

*************************** ********************************************* 



,4 




TITLE Ml 

US3 . 

REV 6* 

NINE 

TRACK PE/NRZI 

MAO TAPt T6V (SAF) 
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001523 




/##*#*#**#******** ****** ft*********************************************** 

001324 




* TURN-AROUND TEST (00 ONLY ON 

" bOC2" FIRMWARE LjAO) 

001323 




* 



001526 




* 

TRY THE OATA PATH. FIRST 

WKAP 1 BYTE OF 

00132 1 




* 

DATA AROUND THt DAUGHTER- 

BOARD. THEN 2 BYTEs 

ZEROS ♦ ONES ARE 

001323 




* 

(1 WORD). THEN 10 BYTES. 

001329 




* 

USLO. 

PATTERN OF »AA55' 

001330 




* 

BYTE-MODE IS IhEN FRIED. 


001331 




* 




00133c 




# 

Hi = 

INbEX 


001333 




# 

R4 = 

RANGE 


001334 




* 

R6 = 

OATA 


001333 




# 



001536 

0400 

6070 

OG00 

u 

10 

= 0.<07 kUPT 

INHIBIi INTERRUPTS 

00133/ 

0402 

0000 

22BF 



0404 

8260 

20E9 


Lb 

<BDCFLG,=l 

CHECK FIKMwARfc 

001336 

0406 

0001 





0407 

0583 



bbF 

>T1A 

b if ”boc2" firmware 

001339 

001340 

0406 

0F80 

04E3 

* 

b 

< T9A 

SKIP T1-T9 IF "BDC 3 " FIRMWARE 

001541 

040 A 

0360 

UFA2 

T1A 

LNJ 

$B5.<LABEL 


001342 

0400 

5431 


DC 

• T1 • 

LABtLl 

001543 

04UU 

0360 

16Eb 


LNJ 

$B5.<1NIZ 

INITIALIZE SUBSYSTEM 

001544 

04Uf" 

6000 

22 AO 

Tib 

10 

<ERASE.<OTTAS< 

MUST BE UFF BUT FOR T1-T9 


04 1 i 

0000 

22C2 




001343 

04 13 

0 7 F C 



blOF 

>T i D 


001546 

001547 

0414 

0 360 

136E 

* 

Lnj 

3>B5 $ <GETRNG 

WAIT FOR ROY 

001346 

0416 

4C01 



LDV 

$R4.=i 

RANGE 

001349 

0417 

CFOO 

2 191 


S7K 

$R4 . <KNG 

range 

001550 

001551 

0419 

0380 

1569 

*- - 

LNJ 

$B5.<G0WKAP 

RETRY ROUTINE. IF NEEDED. IS A NOP 

001552 




* 




001353 

04 1 b 

0360 

0FA2 

72 

LNJ 

$B5 »<LABEL 


001354 

0410 

5432 



DC 

* T2 • 

LABEL1 

001555 

04 11 

4C02 



LOV 

$R4, = 2 

001356 

04 1 F 

CF 00 

2 191 


S7R 

$K4 1 <KNG 

range 

001557 

001356 

0421 

D380 

1569 

*- - 

LNJ 

$B5 . <GOWRAP 


001559 




* 




001360 

0423 

0380 

0FA2 

T 3 

LNJ 

$B5.<LABEL 


00156i 

0423 

5433 



PC 

•T3» 

LABtLl 

00136c 

04C6 

4C0F 



LOV 

$K4.=X*F* 

001363 

04 c 7 

CFOO 

2 191 


S7R 

$R4.<kNG 

RANGE 

001564 

001563 

UhC9 

0380 

1569 

*- - 

LNJ 

$B5 . <GOWkAP 


00136o 




# 




001567 

04cb 

0380 

0FA2 

74 

LNJ 

$Bb .<LABEL 


001366 

0420 

54 34 



DC 

»T4* 

LABtLl 

001569 

0421 

4C10 



LOV 

$R4 » = X • 10 • 

001570 

042F 

CFOO 

219E 


STR 

$R4,<RNG 

range 

001571 

001372 

0431 

0380 

1569 

*- - 

LNJ 

Sb5 .<GOWRAP 


001373 




* 

WRaP AA55 55AA AA55 

55AA DATA PATTERN 

001374 




* 



001575 

0433 

0360 

0FA2 

15 

LNJ 

Sb5 *<LABEL 


001576 

0433 

5435 



DC 

*T5» 

LABEL! 

001377 

0436 

E870 

AA5 5 


LOR 

$R6 » =Z •AA55• 

SPECIAL PATTLkN 

001376 

043b 

0380 

1591 


LNJ 

$b5 .<LDbUF 

001579 

04 3 A 

6016 



SCL 

SK6.8 


001380 

043b 

1C01 



LOV 

$R1»= l 


001581 

043C 

EF10 

17Eo 

7 5A 

SIR 

SR6 * <WBUF•SRi 


00158c 

043L 

1E02 



AOV 

$kl.=2 


001583 

04 3 F 

1D09 



CMV 

Ski.=9 


001384 

0440 

027C 



bL 

>T5A 


001385 

Om-4 1 

8700 

218E 


cl 

<GF SET W 

WRITE OFFSET 

001386 

0446 

8700 

2180 


Cl 

<OFSETR 

READ OFFSET 

001587 

0443 

0380 

1599 


LNJ 

$b5.< T URN 


001386 

044 7 

0360 

10B6 


LNj 

$B5 . <SET 

SET UP FUR REIRY MESSAGE 

001589 

0449 

9b6G 

044 F 


LAB 

$B1 .<7 6 

RETRY LOCATION 

0U159O 

044b 

9F60 

21A4 


STB 

Sb1 * <RTRY 

001391 

00139c 

0440 

0360 

15F9 

*- - 

Lnj 

$65,<C0MPAR 


001593 




* bYTt-CONFI OURA7 ION wKAP-A*OUND (ODD OUT - ODD IN) 

001594 




* 




001395 

044F 

0380 

0FA2 

T 6 

LNJ 

$65 . <LAbtL 


001596 

0431 

5436 



DC 

• 7 6* 

LABtLl 

001397 

0452 

9b8G 

17E6 


LAB 

$bl* <WBUF 

001596 

0*+34 

4C12 



LOV 

$K4 »= X•12 * 


001399 

045 3 

CFOO 

219E 


SIR 

$R4*<RNG 

RANGE 

00160U 

0457 

F 870 

u 102 


LOR 

$k/.=X*0102» 

OATA PATTERN 

001601 

0459 

0360 

160F 


LNJ 

$65.<INCbFR 

INCREMENTING bATA 

00160* 

045b 

KOI 



10V 

SKH=1 

byte-configuration index 

001603 

045C 

9F 00 

218E 


STR 

$K1 1 <0FSE7 W 

WRITE OFFSET 

001604 

04 5 E 

9F00 

2180 


srR 

$R1.<OFSETR 

READ OFFSET 

001o03 

04 66 

400 



LOV 

$R4,=X«10» 

OOI 6 O 0 

046 1 

CFOO 

219b 


SIR 

$R4 *<KNG 

range 

OU1007 

0466 

0380 

1599 


LNJ 

$B5 .<TUKN 

00160b 

0463 

E870 

3302 


LOR 

$K6.=X*3302* 


Oo1o09 

04 6 f 

EFOO 

17E6 


SIR 

$R6,<wbUF 


Ou16 1U 

U469 

40 1 



LOV 

$R4,=X»ll» 

COMPARE RANGE (BYTES) 

001611 

04 6 A 

CFOO 

219E 


STR 

$K4,<RNG 

RANGE 

OOI 0 I 2 

046C 

0380 

1066 


LnJ 

$65*<SET 

SET UP OR RETRY MESSAGE 

001ol3 

046L 

9B80 

0474 


LAb 

$61*<77 

RETRY LOCATION 

001614 

0470 

9 F 80 

21A4 


57 b 

$B1.<KTkY 

001615 

OOI 0 I 6 

04 72 

0380 

15F9 

*- - 

LNJ 

$B5 .<CQMPAR 


001617 




* 

BYTE- 

CONFIGURATION (JDO 

OUT - EVEN IN) 

00 1 6 1 6 




* 




00 1619 

0474 

03b0 

0FA2 

T7 

LNJ 

$B5.<EABEL 


00162U 

04 76 

5437 



DC 

*77. 

LABEL! 

001621 

0477 

9B80 

17E6 


LAB 

$bi.<WBUF 

00162c 

0479 

402 



LOV 

$R4♦ = X'12 * 

RANGE 

001623 

04 7 A 

CFOO 

219E 


STR 

$R4 .<RNG 

RANGE 

001624 

047C 

7C0 i 



LOV 

$K7.=1 

DATA PATIERN 

00 1 o2 5 

0470 

0380 

160F 


LNJ 

$B5 * <1NCBFR 


001626 

047 F 

KOI 



LOV 

SRI1 


001627 

0460 

9F00 

218E 


STR 

$R 1.<UFSETW 

WRITE OFFSET 

001626 

0462 

8700 

2180 


CL 

<ofsetk 

READ OFFSET 

001629 

0484 

400 



LOV 

$R4 * = X * 10' 


001630 

0485 

CFOO 

219E 


STR 

$K4 . <RNG 

RANGE 

001631 

046 I 

0380 

1599 


LNJ 

$B5.<TURN 


00163c 

0469 

9B80 

17E6 


LAB 

$61,<WBUF 











T1T 6 E MTUS3,*k£V iG' 

NINE 

TRACK PE/NRZI 

MAO TAPt T6V (SAP) 
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001633 

048b 

4C12 



LOV 

*R4,=X*12* 


001634 

04bC 

CFOG 

2 m 


STR 

SR4,<KNG 

RANGE 

001633 

04 81 

F 8 7 0 

0102 


LOk 

iR7,=X*0102* 

DATA PAT 1 LRfN 

001636 

0490 

0380 

160F 


LnJ 

$B5,<INCBFR 


001637 

0492 

8880 

2 19E 


otc 

<RNg 


00163b 

0494 

8880 

2 19 £ 


OBC 

<RNG 

RANGE J=X*0010* 

<001639 

0496 

0380 

10b6 


LNJ 

$B5,<S6T 

SET UP FOR RETRY MESSAGE 

0^10 40 

049b 

9b80 

U49£ 


LAo 

$B1»<T 8 

RETRY LOCATION 

001641 

049 A 

9F80 

21A4 


STB 

$BU<KTRY 


001*42 

049C 

0380 

15F9 


LNJ 

$B5 «<CUMPAR 


001643 




*- - - 

— — 



0016 44 




* 

BY T£- 

CONFIGURA TION (EVEN OU 

- 000 IN) 

001643 




* 




001646 

04 96 

0380 

0FA2 

T 8 

LNJ 

$d5 ,<LA6EL 


00164 / 

04A0 

5438 



OC 

» T8 • 

LABEL1 

00164b 

04 A1 

4C12 



LOV 

Sk4,=X«12* 


001649 

04A2 

CFOO 

2196 


STR 

$K4,<RNG 

RANGE 

001650 

04'A 4 

F870 

0102 


LOR 

SR7,=X»0102* 


001651 

04 Ab 

9B80 

1766 


LAB 

sbi,<wbUF 


001652 

04A8 

0380 

160F 


LNJ 

$b5 t<INCBFR 


00io53 

04AA 

8700 

2186 


CL 

<0F SET W 

WRITE UFFSET 

001654 

04AC 

1C01 



LOV 

SR 1 * = 1 

READ OFFSET 

001655 

04 Ao 

9F0G 

2180 


STR 

1,<0F SET R 


001656 

04 AF 

4C10 



LOV 

$K4 , »X 1 10 * 


001657 

0460 

CFOO 

2196 


STR 

SR4,<KNG 

RANGE 

00165b 

0462 

0380 

1599 


LNJ 

$B5,<1 URN 


001659 

0464 

9B8G 

17 £6 


LAB 

$B1«< WBUF 


001660 

04b6 

4C11 



LOV 

$R4,=X»11» 


001661 

04b/ 

CFOG 

219£ 


STR 

*R4,<RNG 

RANGE 

001662 

0469 

7 CO 1 



LOV 

Sk7,=i 

DATA PATIERN 

001663 

04bA 

0380 

160F 


LNJ 

$B5 , < INCBFR 


001664 

04bC 

F 870 

3301 


LOK 

$R7,=X*330i» 


001665 

046b 

F F 00 

17£6 


STR 

$R7 ,<WBUF 


001666 

04CU 

0380 

1UB6 


LNJ 

Sb5t<SET 

SET UP FOR RETRY MESSAGE 

00166/ 

04C2 

9B80 

04C6 


LAB 

SB1»<T9 

RETRY LOCATION 

00166b 

04C4 

9F80 

21A4 


ST b 

SB 1 * <KTRY 


001669 

04C6 

0380 

15F9 


LNJ 

$b5,<C0MPAR 


001670 




*- - - 

— — 



001o7l 




* WRAP 

OAObHILK-BuARD WITH RANDOM OATA 

00167^ 




* 




001673 

04 C b 

0380 

OF A2 

T9 

LNJ 

SB5,<LAbEL 


001674 

0 4 LA 

5439 



OC 

•T9* 

LABEL 1 

y0lo73 

04C6 

4C10 



LOV 

$K4,=X*10* 


001676 

U4CC 

CFOO 

2196 


STR 

$K4,<KNG 


001677 





CALL 

ZVSFK.wbUF,OCb 

(RANDOM DATA, 8 WORDS) 


04Ct 

FbCO 

U0G3 






0400 

0380 

0000 

A 





0402 

OF 80 







04 63 

1766 







0404 

20F1 






00167b 

0403 

8 700 

2 18£ 


CL 

<op 66 r w 

WRITE OFFSET 

001o79 

0407 

8700 

2180 


CL 

<0F S6iK 

READ OFFSET 

001680 

0409 

0380 

1599 


LNJ 

Sb5 , < TURN 


001681 

0406 

0380 

10B6 


LNJ 

S b 5 1 < S E T 

SET UP FOR RETRY MESSAGE 

001686 

0400 

9B80 

0463 


LAb 

$B 1» < T9 A 

RETRY LOCATION 

001683 

040F 

9F80 

21A4 


STb 

$B1,<RTRY 


001684 

0461 

0380 

15F9 


LNJ 

*b5 , <COiviPAR 


001685 

0463 

8000 

22A9 

T9A 

lu 

< NORMAL *<01CO NF 

GET OUl OF DImGNOStIC CONFIGURATION 


04t5 

0000 

22bO 





OQlobb 

046 / 

07FC 



biOF 

> T 9 A 


00168/ 

04£b 

8386 



JMP 

SB6 

RETURN TU HANDLER 

00168b 




************ * ******* *********^***************************************** 

001689 




* K t Wv X NO TEST. Chi TO B-U-T» PARTIALLY CHECK KEW*ND OPERATION 

001690 




* 




001691 

0469 

0380 

0FA2 

RW 

LNJ 

Sb5,<LABEL 


001692 

04b6 

5257 



OC 

• RW* 

LABEL1 

001693 

046C 

0380 

OF£C 


LNJ 

Sb5,< 1NSTAT 

GET STATUS 

001694 

0466 

8260 

21B4 


Lo 

< S T A T 1 »= Z • 0 2.p U * 

CHECK FUR BUT 


04 F O 

0200 






001695 

04F 1 

0500 

0531 


BdT 

<KW6 

b IF ALREADY aT BOt 

001696 




* 




001697 




* REWIND To 

DOT 


00169b 




* 




001699 

04 F 3 

8000 

2299 


iu 

<*EwlND # <OTTASK 

REWIND 


04F5 

0000 

22C2 





001700 

04F 7 

0704 



blUT 

>RWA 

b IF COMMAND lAKEN 

001701 

04F b 

0360 

1030 


LNJ 

$B5,*FNtR 

SHOULD HAVE BdEN READY FOR COMMAND 

001702 

04 FA 

3130 


FNEKIO 

OC 

* 10 * 

LABLL2 

001703 




* 




001/04 

04 F 6 

0360 

0FC5 

KWA 

LNJ 

»<TIME 

TIMEOO! FOR... 

001705 

04F0 

0064 



OC 

MV 0 

100 MILLISECONDS 

001706 

O 4 F 6 

6000 

22b2 


IU 

<SToPI0.<0TC0NT 

RESET CHAN BSY FLOP 


0300 

0000 

22b6 





001707 

0302 

0380 

OF£C 

RWAA 

LNJ 

*B5,<INSTAT 

GET STATUS 

00170b 

0504 

8260 

21B5 


Lb 

<STAT2t=Z*4000* 

WAIT FOR REWI.hD TO START 


0506 

4000 






001 /09 

050 / 

05F b 



bbF 

>RWAA 

B IF NOT REWINDING YET 

001710 




* 




001711 

0508 

0360 

OF EC 


LNJ 

$B5 ,< INST AT 

GET STAT 

001712 

050A 

6960 

2104 


CMZ 

<STAT1 


001713 

050C 

0988 



bNt 

>RWb 

B IF SI All NG 

001714 

0500 

9800 

21B5 


LOR 

$K1,<STAT2 


001713 

050F 

9630 

20FA 


XUK 

SRI»<0X0ENS.SR3 

MASK WITH DENSITY BIT 

001716 

0511 

9670 

COOO 


XuR 

SRl,=Z*COOO* 

SB ON-LINE, RwND 

001717 

0513 

1904 



bbZ 

3>R 1 * >RWC 


0017 lb 

0514 

, 0380 

1030 

RWb 

LNJ 

$B5 *<FN£K 

STAT NG DURING RWNq 

001719 

0516 

3131 


FNEkl1 

OC 

• 11 • 

LABEL2 

001720 




* 




001721 




* NOW 

WAIT 

FOR ROY WHILE REWINDING 


001722 




* 




001723 

0517 

0360 

OF£C 

Rwc 

LNJ 

SB5 *< INSTAT 

GET STATUS 

001724 

0519 

8260 

2 1B4 


LB 

< S T A T1,=Z *6000* 

WAIT FUR ROY 


0516 

6000 






001725 

051C 

05F6 



BBF 

>RWC 

B IF N/ROY YE] (WAIT) 

001726 

0510 

8000 

21B5 

RWCC 

10 

<STAT2,<INSTW2 

GET STATUS WQkD 2 


051F 

0000 

22C0 





001727 

0521 

07FC 



BiOF 

>RWCC 


00172b 

0522 

9800 

21B4 


LOR 

$R1 ,<STAT1 

ROY NOW, CHK FOR VALID SIATUS 

001729 

0524 

9670 

C200 


XUR 

$RI*=Z*C20Q* 

SB RDY* ATTN, BUT 

001730 

0526 

1968 



bNEZ 

*kl,>RWD 

b IF NG 

001731 

0527 

9800 

21B5 


LOR 

*R1,<STAT2 


001732 

0529 

9630 

20FA 


XOR 

*R1,<DXDENS.S«3 

MASK WITH DENSITY BIT 

001733 

0526 

9670 

8000 


XOR 

$R i♦sZ * 8000 • 

SB BOT (UN LINE) 



4 ">\ 

w 







TITLE MTOSS^KeV o 


NINE TRACK PE/NKZI MAG TAPE T6V (SAP) 


PAGE 


19 


001734 

0520 

1904 



bEZ 

SKI*>KWE 

b IF OK 



001 735 

0 5 2 l 

0380 

1030 

RWD 

LNJ 

$B5 * <F NEk 

sta i ng after rewind 



001736 

0530 

3132 


PNER12 

DC 

• 12 ♦ 

LABEL 2 



0017 3 7 




* 






00173b 




* UNIT 

AI b- 

j-r* do another rewind, should have no effect 



001739 




* 






001 7 4 u 

0531 

6000 

2299 

KWt 

IU 

<KtwIND,<OTTAbK 

ISSUE KEWIND 




0533 

UOOO 

22C2 







001741 

0538 

07FC 



b I OF 

>KWt 

HANG IN 1 HERE 



001 744 

0536 

0F7F 



NOP 

>3>-i 

DELAY 



001 74b 

053 7 

0F7F 



NUP 

>$-l 

DELAY SOME MOKE 



001 7*+4 

0536 

6000 

2 lb4 

KW F 

10 

<STA I 1 ,<INS1W1 

GET STATi 




053M 

0000 

22CC 







00174b 

053C 

07 F C 



blOF 

>RWF 

CAN•T GEl STAIUS WORD ONE 



001 746 

0530 

9800 

2164 


LOR 

$R1*<STaT 1 




001747 

0 5 3F 

9970 

6200 


CM k 

SRI,=Z» 8200* 

KDY, bUT 



00174b 

0541 

0960 



BNE 

>KW\j 

B IF NG 



001749 

0542 

6000 

2165 

RWFF 

10 

<STmT 2 » <iNST W2 

GET SECOND STaTUS WORD 




0 544 

0000 

2 2C0 







001760 

0546 

0 7FC 



biUF 

>RWFF 

B IF CANI GtT IT 



001 7 61 

0547 

9800 

2165 


LDK 

sk 1 i< sta ]2 




001764 

0 549 

9630 

20 FA 


XUR 

ski,<DXDENS.S^3 

MASK WITH DENSITY BIT 



001763 

054l> 

9970 

6000 


CMk 

Ski,=Z»8000« 

ON-LINE 



00175a 

0 540 

0904 



bE 

>KWH 

B IF OK 



001756 

054E 

0380 

1030 

RWG 

LimJ 

SB5,<FNEK 

CANT GtT STAT OR Ng AFTtK RWND 1 

FROM BUT 

0U1766 

055 0 

3133 


F NEK 13 

DC 

• 13 • 

LA 6 tL 2 



001757 




* 






00175b 

055 i 

6366 


KWH 

JmP 

S 66 

END OF TtST Kw* RETURN TO HANDLtR 

001 759 




************ 

************************************************************ 

001760 




* ERASE TAPE 

, TIME ERASE FROM bOl 

AND CHECK FOR 1 APt MOTION OFF 

BO 

1 • 

001761 




* 






001764 

0554 

0360 

0FA2 

ER 

LNJ 

SB5,<LAbEL 




001763 

0554 

4552 



DC 

* EK* 

LABEL I 



001764 

055 6 

8000 

22 AO 


10 

<EkASE* <0T TAS<. 

ERASE 




055 7 

0000 

22C2 


• 





001765 

0669 

07F 9 



blOF 

>ER 




001 766 




* 






001 76 7 

055m 

8700 

21BA 


CE 

<TImCNT 

SET UP FOR TImING 



001766 

055C 

0380 

0FC5 

ERA 

LNJ 

SB5,<TI ME 

TIMtOUl FOR... 



001 769 

055E 

0001 



DC 

1 

1 MS 



001770 

055F 

8000 

4164 


10 

<STMli,<lNSrwl 

TRY TO GET STaTUS 




0561 

0000 

22CC 







001771 

0563 

6A80 

2 16A 


INC 

<TImCNT 

ACCUMULAIt TImEK 



001 774 

0565 

07F 7 



blOF 

>EKm 

B IF NUT DUNE 



001773 

0566 

6000 

2165 


10 

<STaI2,<InSTW2 





Ub 6 d 

0000 

22CD 







001774 




* 






001775 

056m 

9600 

21b4 


EDR 

Ski,<STAT1 




001776 

056C 

9970 

8000 


CMK 

Ski,=Z * 8000* 




001777 

056l 

0968 



bNE 

>EKb 

B IF SIAI l Ng 



00177b 

0 5 6 F 

9800 

2165 


LDK 

ski,<S T AT 2 




001 779 

0571 

9630 

20 FA 


XOk 

Ski,<DXDENS.$R3 

MASK WITH DtNoITY BIT 



001 780 

05 73 

9970 

6000 


CMK 

SKI*=2»8000» 




001781 

05 75 

0904 



Be 

>ERC 

B IF SIAI OK 



001784 

0576 

0360 

1030 

LRb 

LNJ 

SB5,<FNEk 

STATUS NG APTuR ERASE 



001783 

057b 

3139 


F NEK 19 

DC 

i 1 9 » 

LABEL2 



001 784 




* 






001785 




* NOW < 

LHtCK 

AGAINST allowed TIME 

LIMITS. 



00178b 




* 






001787 

0579 

0380 

170 9 

ERC 

LNJ 

SB5,<TIMCHK 

CHECK NOMINAL VALUE, ERR IF < 

OUT 

OF UMI 

001 78b 

05 7d 

4321 



DC 

<T 1 MEK 

CONTAINS NOMINAL TIME 



001789 




* 






001 790 

057C 

0360 

100F 


LNJ 

SB5,<SENSE 

NEXT? 



001791 

05 71 

6386 



JMP 

SB 6 

RETURN 



001794 




************************************************************************ 

001793 




* FILE 

MAKK 

test, write fm following an erase (it., not from butj. 


001794 




* TIME 

THt OPERATION AND CHECK STATUS. 



001 795 




* 






001796 

05 7F 

0380 

0FA2 

PM 

LNJ 

SB5,<LAbEL 




001797 

0561 

4640 



DC 

• FM 1 

LABEL 1 



001798 

0562 

8000 

22A1 


io 

<WR1TFM,<0TTASK 

WRITE FILE MARK 




0584 

0000 

22C2 







001799 

0566 

07F9 



blOF 

>FM 




OOloOO 




* 






OOltiOi 

0587 

8700 

2 1 BA 


CL 

<TIMCNI 

SET UP FOR TIMING 



001804 

0589 

0380 

0FC5 

FMA 

LNJ 

$ b 5 , < fIME 

TIMtOUl FOR... 



00 1603 

0580 

0001 



DC 

1 

1 MS 



OOlbOA 

056C 

8000 

2164 


10 

<STA T1,<INSTW1 

TRY TO GtT STaTUS 




058E 

0000 

22CC 







001b05 

0590 

6A60 

2 1 BA 


Inc 

<TImCNT 

accomoeaie TImE 



001806 

0592 

07F7 



blOF 

>fma 

B IF NOT DONt 



001807 

0593 

6000 

2165 


10 

<STaT 2 ,<INSTW 2 

GET STAT 




0595 

0000 

22CO 



_ 

- ■ 



OOlbOb 




* 






001809 

059/ 

9800 

2164 


LDK 

SKI,<STAT1 




00 lb 10 

0599 

9970 

8400 


CMK 

$R1*=2*8400* 

KDY, FM DET 



OOibll 

0 59b 

0968 



bNE 

>FMb 

B IP S1 A 11 NG 



001 bl 2 

0 59C 

9800 

2165 


LDK 

$R1,<STAT2 




001813 

059E 

9630 

20PA 


xok 

Ski , <DXDENS. S-<3 

MASK WITH DENSITY BIT 



001814 

05 AO 

9970 

6000 


CMK 

SKI,=2*8000* 

ON LINE 



001 b 1 5 

05A2 

0904 



BE 

>F MC 

B IF SIAI OK 



001816 

05A3 

0380 

1030 

FMb 

LNJ 

Sb5,<F NER 

STAT NG AFTER "WRITE FILE" 



001817 

05A5 

3231 


FNEK21 

DC 

* 2 1 * 

LABEL2 



OOlblb 




* 






001819 

05A6 

0360 

1709 

FMC 

LNJ 

SB5,< TIMCHK 

check iiMt* error if no 



001820 

05Ab 

2322 



DC 

<TIMFM 

NOMINAL TIME FOR WFM, N/tiOT* 

45 

IPS 

001821 




* 






001822 

05A9 

0380 

100F 


LNJ 

SB5,<SENSE 

NEXT? 



001823 

05Ab 

8386 



JMP 

$66 

RETURN 



001824 




************ 

********* *************************************************** 

001825 




* BACKSPACE 

A RECORD* (IS A FM). 

CHECK THAT DATA WAS wRITTtN IN 

TtST •FM* • 

001626 




* 






001627 

05 AC 

0380 

OF A2 

bk 

LNJ 

SB5,<LAbEL 




001828 

U5AE 

4252 



DC 

*BK« 

LABELl 



001829 

0 5 AF 

0380 

1453 


LNJ 

SB5,<BSK 

START 10 BACK SPACE A REC 



001630 

0501 

0380 

OFEC 


LNJ 

SB5,<INST AT 

WAIT FOR RDY hND (j^T STAI 



001831 

0503 

9800 

2164 


LDK 

SRI,<STATI 




001634 

05d5 

9970 

8400 


CMk 

SRI,=2*8400' 

RDY, FM DET* n/BOT, ETC. 



001633 

0607 

0986 



bNE 

>BKa 

B IF SIAI1 NG 



001834 

0506 

9800 

2 1B5 


LDK 

SRI*<STaT2 




001635 

05oA 

9630 

2 OF A 


XOK 

Ski,<DXDENS.SK3 

mask with density bit 



001636 

050C 

9970 

8000 


CMK 

SRI*=2*8000» 

ON tINt 



001637 

050E 

0904 



BE 

>BRb 

B IF SIAI OK 
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00183b 

05BF 

D360 

1030 

001839 

05C1 

3235 


001840 




001841 

05C2 

D380 

100F 

00184* 

05C4 

8386 


001843 




001844 




001845 




00184b 

05C5 

D360 

0FA2 

001847 

05C7 

4652 


001848 

05C8 

D380 

13E9 

001849 

05CA 

D360 

OFEC 

001850 

05CC 

9800 

2164 

001851 

0 5CE 

9970 

8400 

00185* 

05D0 

0986 


001853 

05D1 

9800 

21B5 

001854 

05D3 

9630 

20 F A 

001855 

0 5D5 

9970 

8000 

00185b 

05D7 

0904 


001857 

05Db 

D380 

1030 

001658 

05PA 

3239 


Ou18 5 9 




001860 

05Db 

D380 

100F 

001861 

05Dd 

8386 


00186* 




001863 




001664 




001865 

05Dl 

D380 

OF A2 

00166b 

05 tO 

4246 


001867 

05E1 

D380 

1414 

001666 

05E3 

0380 

OFEC 

001869 

05E5 

9800 

2164 

001670 

05E7 

9970 

8400 

001871 

05E9 

0968 


001672 

05EA 

9800 

21B5 

001673 

05EC 

9630 

20FA 

001674 

05Et 

9970 

6000 

001675 

05F0 

0904 


00167b 

05F 1 

D360 

1030 

001677 

05F 3 

3330 


001678 




001679 

05F4 

D360 

1 OOF 

001680 

05F6 

8386 


001681 




00168* 




001683 




001864 

0 5F7 

D360 

0FA2 

001665 

05F9 

4646 


001686 

05 FA 

D360 

13B3 

001887 

05FC 

D360 

OFEC 

001886 

05 Ft 

9800 

2 lb4 

001689 

0600 

9970 

6400 

001o90 

OoQ* 

0986 


001691 

0b03 

9800 

2165 

001b92 

0605 

9630 

20F A 

001693 

0607 

9970 

6000 

001894 

Ob09 

0904 


001695 

060 A 

D380 

1030 

001896 

060C 

3331 


001697 




001896 

ObOD 

D380 

100F 

001699 

060 F 

8366 


001900 




001901 




00190* 




001903 

0610 

D360 

0FA2 

001904 

Ob 12 

4546 


001905 

Ob 13 

8180 

17E6 


0615 

0000 

226C 


0617 

0000 

20F0 

001906 

0619 

07F A 


0 U 19 0 7 

061A 

8000 

22A2 


Ob 1C 

0000 

22C2 

001906 

Obit 

07FC 


001909 

Ob 1F 

D380 

136E 

001910 




001911 

Ob2 1 

D360 

1426 

001912 

Ob* 3 

6*60 

2164 


0625 

0400 


001913 

Ob2b 

0566 


001914 

0627 

D380 

1030 

001915 

0629 

3236 


00191b 

0b2 A 

OF 60 

0664 

001917 




001916 




001919 




001920 

Ob2C 

D380 

134D 

001921 

0621 

D360 

1426 

00192* 

0630 

9800 

2164 

001923 

0632 

9570 

0600 

001924 

0b34 

9970 

0400 

001925 

063b 

0904 


00192b 

0637 

0380 

1030 

00192 l 

Ob39 

3332 


001928 




001929 




001930 




001931 

C63A 

D380 

1746 

00193* 

063C 

6000 

229C 


0631 

0000 

22C2 

001933 

0640 

07 FA 


001934 

0641 

D360 

OF C5 

001935 

Ob43 

0001 


001936 

0644 

6000 

2164 


064b 

0000 

22CC 

001937 

0648 

0705 


001936 

0649 

D380 

1030 

001939 

0646 

3333 


001940 

0b4C 

0 F 9 4 


001941 




00194* 

064D 

6000 

2165 


064F 

0000 

22CD 

001943 

0651 

9800 

2164 


BRA 

LNJ 

$b5 *<FNER 

STAT NG AFTER «BSR* 

FNER25 

DC 

•25* 

LABEL2 

6RB 

LNJ 

$65 *<5ENSE 

NEXT? 


JMP 

$B6 

RETURN 


************ **************** ************** ****************************** 
* FORWARD SPACE A RECORD AND CHECK STATUS* (REC i5 A FM) 


FR 

LNJ 

DC 

$65 *<LAbEL 

»FR» 

LABEL1 



LNJ 

LNJ 

LDR 

CMR 

6NE 

LDK 

$65 *<F5R 
$65♦<1NSTAT 
$R1 * <ST AT 1 
$R1 * = 2 * 8400 * 

>FRA 

$RU<STAT2 

START 10 SPACE FORWARD 
GET STATUS 

RDY« FM DET 

B IF S1AT1 NG 


XQR 

CMR 

BE 

$R1»<DXDENS.$R3 
$R1 * = 2 * 8000• 

>FRB 

MASK WITH DENSITY 
ON LINE 

B IF SIA( OK 

BIT 

FRA 

LNJ 

$65,<FNER 

STAT NG AFTER FSR 

WHICH 

FNEK29 

* 

DC 

•29* 

LABEL2 

FR6 

LNJ 

JMP 

$65 * <SENSE 
$66 

NEXT? 

RETURN 



************************************************************************ 

* BACKSPACE A FILl AND CHEC< STATUS 

* 


BF 

LNJ 

$B5«<LAbtL 



DC 

•BF • 

LABEL1 


LNJ 

$B5 *<bSF 

START 10 BACKsPACt A FlLt 


LNJ 

$B5 *<INSTAT 

GET STATUS 


LDR 

$Rl*<SrATl 



CMR 

SRI*=2*8400* 

RDY* FM DET 


bNE 

>BF A 

B IF SI All NG 


LDR 

$R1 * <STAT2 



XuR 

$Rl,<DXDtNS.$R3 

MASK WITH DENSITY BIT 


CMR 

$R1*=2*8000* 

ON LINE 


BE 

>6Fo 

B IF SI AT UK 

bFA 

LNJ 

$B5 *<FNtK 

STAT NG AFTER BSF 

FNER30 

DC 

•30* 

LABEL* 

BFB 

LNJ 

$B5*<StfMSt 

NEXT? 


JMP 

$66 

RETURN 


************************************************************************ 

* FORWARD SPACE A FILE 

* 


FF 

LNJ 

$65«<LAbtL 



DC 

•FF* 

EA6EL1 


LNJ 

$B5»<FSF 

START 10 FORWARD SPACE A FILE 


LNJ 

$65,<INSTAT 

WAIT FOR RDY* GET STAT 


LDR 

$R1♦ <ST AT 1 



CMR 

$R1 * = 2 * 8400• 

RDY* FM DEI 


BNE 

>F FF A 

6 IF S1 A 11 NG 


LDR 

$k1» <ST AT 2 



XQR 

$R1 »<DXDLNS*$R3 

MASK WITH DENSITY BIT 


CMR 

$R1» = 2 * 8000 * 

UN LlNt 


BE 

>FFp 

6 IF SI A1 OK 

FFFA 

LNJ 

$B5 *<F NLR 

STAT NG AFTER FSF 

FNER31 

ft 

DC 

•31* 

LABEL2 

FFB 

LNJ 

$65»<SLNSL 

NEXT? 


JMP 

$66 

RETURN 

************ #************** ********************************************* 

* ERASE THE 

■u. 

FIRST FlLt MARK* BACKSPACE A REC. SHuULD GET TO BO 1. 

EF 

LNJ 

$65 * <LAbtL 



DC 

•LF * 

LABEL 1 

EF J 

lULU 

<W6UF,<IUWKIT,<DC32 (WRlTt SOME DmTA) 


BI OF 

> t F j 


EFb 

lu 

<writl,<ottask 



61 OF 

>LFd 


ft 

LNJ 

$B5 * <GL TKNG 

WAIT FUR N/bSY 


LNJ 

$B5 * <BSRW 

BACK SPACE THmT RECORD 


Lb 

< S T A 1I* = 2*0400* 

FM 


bbF 

> t F A 

6 IF N/FM* OK 


LNJ 

$65 ,<FNLR 

SHOuLjN*I bt FM ON NORM REC 

FNER26 

DC 

•26* 

LABEL2 

ft 

b 

<LFi 

ABORT THt TESI 

* NOW 

* 

ERASt 

THt CURRENT RECORD. 

DOING A bSRW SHOuLD THEN FIND A FM. 

EF A 

LNJ 

$65 «<ERAW 

ERASE AND CHEuK STAT 


Lnj 

$65 *<bSRW 

BACKSPACE* SHuULD GET TO BOl 


LDR 

$R1 * <ST AT 1 



AND 

$R1*=2*0600* 

FM* BUI 


CMR 

$R1*=2*0400* 

SHOULD BE FM* N/BOj 


BE 

>EFC 

6 IF SIAI OK 


LlMJ 

$65,<FNER 

ST AT 1 SHOULD oE FM, N/Bul 

FNER32 

ft 

DC 

•32* 

LABEL2 

* NOW 

ft 

GO TO 

bOT* DO bSR AND bSF 

. SHOULD DU NORMAL TERMINATION FOR BOTH. 

tFC 

LNJ 

$b5,<G060T 

REWIND 


ID 

<REVREC * <UTTASK 

START VO BACKSPACE 


61 OF 

> E F C 



LNJ 

$65 *<TI ME 

WAI1 FOR... 


DC 

1 

i MILLIStCOND 


10 

<ST AT 1,<INSTWI 

TRY TO GET SImTUS 


BIOT 

>EFi> 

6 IF ACK * Eb (gK) 


LNJ 

$65,<FNER 

SHOULDN * T TAKt TIME TO BSR AT BUT 

FNER33 

DC 

*33* 

LABtL2 * STAT aORDS IN MSG ARE INVALID 

* 

b 

>EFF 

BYPASS THE NEaT TEST 

EFD 

10 

<5TAT2 * <INST W2 



LDR 

$R1*<STAT1 
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001944 

Ob 3 3 

9970 

6200 



Cmk 

SKI,=Z' 82 OO* 

KUY, BUT 


001945 

065 5 

0986 




bNE 

>EEt 

B IE SlWi NG 


00 i 94t> 

Ob 5 b 

9800 

2 1 b3 



lor 

SR 1» < S1 AT 2 


f 

0 U 1 9 4 7 

Ob3b 

9630 

20F A 



XOR 

SRI*<UXUENS,$R3 

MASK wiTH DENSITY BIT 

I 

0U 194b 

065m 

9970 

8000 



CHR 

SRI,=Z*8000* 

ON LINE 

L , 

001949 

Oo5C 

0904 




BE 

>EFE 

B IF SIAl OK 


001950 

0650 

0380 

1030 


EFE 

lnj 

SB5 *<ENER 

STAI1 NG AFTER BSR FROM bOT 


001951 

Ob3t" 

3334 



FNER34 

DC 

i 34 * 

LA6EL2 


001954 





* 





001953 





* REPEAT PREVIOUS TEST FOR dSF. 



001954 





* 





001953 

0660 

8000 

229E 


LEE 

10 

<KEvE1L , <01 TASK 

START 10 BACKSPACE 



0b62 

0000 

22C2 







00195b 

0664 

07FC 




blOF 

>EF E 



001957 

066 3 

0380 

0EC5 



LNJ 

S65,<TlME 

TIMLOUl FOR.,. 


00195b 

0667 

00U1 




be 

1 

1 MILLISECOND 


001959 

0b6b 

8000 

2 1 b4 



10 

<STAl 1 ♦<inst w 1 

TRY TO GtT STATUS 



Obb/A 

0000 

22CC 







001960 

Ob6C 

0705 




d 10 T 

>EFu 

B IF ACK’ED (UK) 


001961 

0 6 6 L> 

0360 

1030 



LNJ 

*65,<ENtR 

SHOULDN•( TAKt TIME TO BSF AT bOT... 


001964 

O 60 P 

3333 



ENER35 

uc 

•33* 

LABEE2* STAT wORDS IN MSG ARE INVALID 


001963 

06 70 

0 F 94 




b 

>EF 1 

BYPASS NEXT TlST 


001964 





* 





0 0 19 6 5 

Ob 71 

6000 

21B3 


EFu 

10 

<STa i2 *<INSTW2 




0673 

0000 

22 CD 







001966 

0b7 5 

9800 

2 1 b4 



lor 

SRIi<STAT1 



001967 

06 77 

9970 

8200 



CMK 

$RI,=Z»8200* 

RDY, BUT 


001966 

Ob 7 9 

0966 




bNE 

> E F r 1 

B IF S 1 A T 1 IMG 


001969 

Ob 7 A 

9800 

2165 



LOR 

SRI »<STAT2 



001970 

0670 

9630 

20FA 



XUR 

SRI,<DXDENS*$<3 

MA5k WITH DENSITY BIT 


001971 

Ob 71_ 

9970 

8000 



CMK 

SR 1» =Z'8000* 

ON LINE 


0019/4 

OqbO 

0904 




bE 

>EF 1 

b IF SI AT QK 


001973 

068 1 

0380 

1030 


eF h 

LNJ 

S65 *<FNEK 

STAT IMG AFTER BSF FROM bUT 


0019/4 

068 3 

3434 



FNER 44 

UC 

*44 » 

LABEL2 


001973 





* 





00197b 

0b84 

u38G 

1U0F 


EF i 

LNJ 

Sb5 , <SENSE 

NEXT? 


001977 

0 b 8 6 

8366 




JMP 

Sb6 

RETURN 


00197b 





************************************************** ********************** 


001979 





* INTERRUPT 

TLST. check all levels 

OF CP KUPT AGAINST ALL LEVELS 


001980 





* OF PERIPHERAL KuPT CONTROL* K5=DVC LVL, R6 = CP lVL (OUTER LOOP). 


001981 





* 





00198c 

068 ( 

tE 60 

0749 


RP 

S l b 

*66 f < KP66 

SAVE RtTUKN AuDRESs 


OU 1 9 8 3 

0689 

bFOO 

0746 



STR 

SR3 ,<RPR3 

SAVE INDEX FOR FUTURE USE 


001984 

0 6 b d 

0360 

OF A2 



LNJ 

S65 ,<LA6EL 



001985 

0660 

5250 




UC 

* RP * 

LABEL 1 


00198b 

Obbt 

OF 7 F 




NOP 

>S-i 

FOR DEBUG ONLY ??? 


001987 

0 6 8 F 

0E7F 




NOP 

>S- 1 

FOR DtbUG ONLY ??? 


00198b 

0690 

6C51 




STS 

= SRi 



001989 

069 i 

9A60 

14E5 



SR El 

SRI*<CPCHAN* = 2 *03CO* 




0693 

0 3C0 








001990 

0b94 

AbBO 

0000 

X 


LAb 

Sb2 1 <ZH 1 SAZ 



001991 

Ob 9b 

bB80 

1501 



LAb 

Sb3 * <ISARDV 

SAVE AREA FOR ALL LEVELS 


001994 

0o96 

bF F 2 



RPb 

ST b 

Sb3, ♦S62 

SET UP ALL LEVELS 


001993 

0699 

A060 

14E9 



CMb 

S62,<H006F 

DONE YET? 


00199*+ 

Ob9b 

0 AF 0 




BALE 

>RPu 

NO - KEEP GOING 

£ 

001993 

0690 

9B60 

1316 



LAb 

Sbl,<utVIH 

ADDRESS UF KUPT HANDLER 

1 

00199b 

0b9t 

9 F 80 

1304 



STb 

Sbl,<13AkP 

PUT IN 10 SAVE AREA 

I 

001997 

ObAO 

603 E 




LUV 

SKb» = 0 3 

STARTING LEVEu for program 


00199b 





* 





001999 





* 





002u00 





* 





O02O01 

ObAl 

8700 

0000 

X 

RPC 

CL 

< Z H 1 A F 6 

RESET ALL ACTIVITY FLAGS 


002004 

ObA3 

6700 

0001 

X 


CL 

<ZH1AEB^l 



002003 

06 A3 

8700 

0002 

X 


CL 

<ZHlAFb+2 



002004 

Ob A7 

6700 

0003 

A 


CL 

<ZH1AF 6 + 3 



002O03 

Ob A9 

9800 

14E3 



LUR 

sR1»<LVUC 

QUICK LEVEL CHANGE 


00200b 

ObAb 

9456 




OR 

SRI»=SR6 

GET READY FOR LEVEL CHANGE 


002007 

ObAO 

6t5i 



LEV XC 

LEV 

= SR 1 

MAKE THE CHANGE 


00200o 

06AO 

9570 

003E 



AnD 

SRU=Z , 003F • 

LOOK Al LEVEL ONLY 


002009 

Oo AF 

8A01 




INC 

= $R 1 

GO bACK TO OEu LEVEL 


002010 

Obbu 

8610 

0000 

X 


LbE 

<ZH 1AF b•SR 1 

AND RE6EI ACTIVITY FLAG FOR THAT LVL 


002011 

06b4 

9636 




LOR 

SRI * = SR6 

GET CUKRtNT Lt-VEL BACK 


002O12 

Obb3 

9270 

003E 



SUb 

*R1i=63 

IS THIS FIRST TIME THRU? 


002ol3 

Obt33 

1966 




bNtZ 

$K1 ,>KPD 

- BRANCH IF NuT first time 


002014 

Obbb 

9B80 

14Eb 



LAb 

Sbli<lSATDV 



002015 

Obbb 

9F 60 

003E 

X 


STb 

*6 1 ,<ZH1SAZ«-63*SAF 

SETUP SAVE ARt_A AFjeR LEV 1N5TK 


OO^ulb 

06bM 

OF 8 7 




b 

>RPl 

SKIP THIS CQbc NOW 


00201 l 

Ob Db 

9656 



KPD 

LUR 

SRI * = SR6 

RESTORE CURRENT LEVEL 


00201b 

ObbO 

8 AO 1 




INC 

= SR 1 

LOOK Al OLD LeVEL 


002019 

ObbO 

9B60 

1301 



LAb 

$bI , < 1SARDV 



002020 

ObbF 

9F90 

0000 

X 


STb 

Sblf<ZHiSAZ.$4l 



002021 

0601 

0870 

003E 


RPE 

LUR 

SR5 * = 62 

INITIAL LEVEL FOR DEVICE 


002024 





* 





004023 





* 





0020 Zh 





* 





002023 

Ob03 

b700 

14E4 


RPF 

CL 

<DEv SEM 

RESET SEMAPHOkE 


002u2o 

0603 

3901 

006C 



6EZ 

SR 3♦R PN 

B IF END OF TtST 


002027 

0607 

0400 

14E5 



UR 

SR5 * <CPCHAN 

stick in cp channel number 


00202b 

0609 

6055 



RPFA 

10 

= $R3 »<OTRUPT 

SET NEW UEVlCb LEVEL 



ObOA 

0000 

2 2BF 







002029 

0600 

07 F 0 




blOF 

>RPEA 



00203u 

0600 

0570 

00 3 F 



AND 

SR5 * = Z»003F* 

LOOK Al DEVICE LEVEL 


002031 

060E 

0 F 0 0 

14E6 



STR 

SR5 ♦ <ULVL 

STOKE IT AWAY 


002032 

0601 

EFOO 

14E6 



STR 

SR6,<PLVL 

STORE PROGRAM LEVEL 


002033 

0603 

EEOC 

14E7 



STR 

SR6 * <CLVL 

********** 


002034 

0603 

F 870 

0080 



LuK 

SR7 * = 128 

SETUP FOR TIMb DELAY 


002033 

0607 

6000 

22b2 



10 

<STuP10»<0TC0NT 

GENERA IE AN INTERRUPT 



0b09 

0000 

2 2 bE 







00203b 

060b 

7701 

FFFF 



bULC 

SR 7 t S 

WAIT HtRt FOR A WHILE FOR KUPT 


002037 

0600 

0E01 

FFFF 



NOP 

S 

may Come here after ruPT 


00203b 

060E 

0570 

00 3 F 



AND 

SR3 t = Z * 003F * 

LOOK Al DEVICl LEVEL ONLY 


002039 

0611 

9855 




LUR 

SRli=SR5 

PUT DLVICE LEVEL INTO RI 


00204U 

06E2 

1901 

004F 



bEZ 

SRI ,KPN 

LEVEL ZERO CAnT RUpj 


002041 

06t4 

9256 




Sub 

SRI*=SR6 

SEE WHICH LEVEL WAS HIGHEST 


002044 

06L3 

166A 




BGEZ 

SRI ,>KPJ 

DEVICE SHOULDN’T HAVE ROUTED - BRANCH 


002043 

ObEb 

8980 

14E4 



CMZ 

<DEV SEM 

DID A KUPT HAPPEN? 


002044 

06E8 

0981 

0049 



bNE 

RPN 

YES - tVtRYTHINGS OK ********** 


002043 

06tM 

b600 

0748 



LUR 

SR3 »<RPR3 


f 

002u4b 

ObEO 

0360 

1030 



LNJ 

SB5 *<ENER 

SHOULD HAVE RoPTED BUT DIDN'T 

M ,, 

002047 

06EE 

3336 



FNER36 

UC 

» 36 • 

LABEL2 


00204b 

ObEF 

6980 

14E4 


RP J 

CMZ 

<DEVSeM 

HAS RUPT HAPPlNED? 


002049 

06 F1 

0906 




bE 

>rpk 

NO - I 1*b OK 


002050 

O 6 F 4 

b600 

074 6 



lDR 

SR3*<RPR3 
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002u5i 
002054 
002053 
002054 
002055 
00205b 
00205 / 
002056 
002U59 
002060 
00206i 
0020b2 

002063 

002064 

002065 

002066 

002067 

00206b 
002069 
002070 
0020 71 
002072 
002073 
0020/4 
002073 
• 002076 
002077 
002U76 
0020/9 
002080 
002081 
002082 
002083 
002084 
002083 
002086 
00208 7 
00208o 
004089 
002090 
002091 
002092 
004093 
002094 
002093 
002096 
00209 7 
002096 
002U99 
002100 
002101 
002104 
002103 
002104 
004103 
002106 
00210 7 
002x08 
002109 
002110 
002111 

002114 

002113 

002114 
002113 
002116 
002117 
002116 
002x19 
002x20 
002121 
002122 
002123 
004124 
002123 
002 i2o 
002127 

00212b 

002129 

002130 

002131 

002134 

002133 

002134 

002133 

00213d 

002137 

002138 

002139 

00214U 

002141 

002142 

002143 

00214*+ 

002143 

00214o 

002147 

002l4o 

002149 

002150 

002151 

002154 

002153 

002154 

002153 

002156 

002157 

002138 


06 F 4 

D380 

1030 



LNJ 

ObFb 

3337 



FNER37 

DC 

06F 7 

5901 

003A 


KPk 

btZ 

0 0 F 9 

D 970 

00 3 F 



Cmk 

ObFo 

0901 

0036 



BE 

ObFD 

EFOO 

14E7 



STR 

06 FF 

9870 

00 3 F 



LDK 

0701 

9F00 

14E8 



STk 

0703 

9470 

8000 



UK 

0705 

9b80 

070A 



LAB 

07 0 7 

9F 80 

1504 



STb 

0709 

8E5 1 



LEVXD 

LEV 

070A 

OF 0 1 

FFFF 


KPK 1 

NUP 

0 70C 

F 870 

0080 



LDR 

07 OL 

7701 

FFFF 



BDEC 

0710 

D800 

14E6 



LDR 

0712 

8800 

0003 

X 


LdF 

0714 

0001 





0713 

8C52 




STS 

0716 

A570 

00 3 F 



AND 

0 718 

A955 




CMR 

0719 

0906 




BE 

0 71A 

b800 

0748 



LDR 

07 1C 

D380 

1030 



LNJ 

0 7 1E 

3338 



FNER38 

DC 

0 7 1 F 

D900 

14E7 


KPK2 

CMR 

0 74 1 

0906 




tit 

0724 

C870 

8080 



LDR 

0724 

C400 

14E7 



UR 

0 72b 

8E54 



LEVXE 

LEV 

072 7 

9B80 

1516 


RPK3 

LAB 

0729 

9F80 

1504 



STB 

07 2 B 

E800 

14E7 



LDK 

07 2D 

9856 




LDR 

0721 

9B80 

14EB 



LAb 

073U 

9F90 

0000 

X . 


SIB 

0 7 32 

5 700 

06C3 


RPN 

BDEC 

0 734 

6700 

06 A1 



BDEC 

07 36 

b800 

0748 


RPM 

LDR 

0736 

D380 

16EB 



LNJ 

0 7 3 A 

9B80 

0745 



LMb 

0 73C 

9F80 

2 30F 



STB 

07 31. 

9B80 

230C 



LAu 

0740 

9F 80 

GOOF 

X 


STb 

0744 

8E70 

800F 


LEVXJ 

LEV 

0 744 

0000 




HLi 

0743 

EC80 

0749 


RPO 

LDb 

0747 

8 386 




JMP 

0746 

0000 



RPK3 

klSV 

0 749 

0000 



RPb6 

RLSV 


Sb5,<PIMtk 

•37* 

SK5,kPN 
SR5 9 = 63 
KPN 

SH 6 * <CLVL 
SKI * -63 
SRI* <PLVL 
Ski»=Z'6000• 

SB l ♦<RPK1 
Sbl*<1SARP 
= SR 1 
s 

SR7 * = 128 
SR 7 » S 
SK5 * <DLVL 

<ZHiAPB*3»=Z» 0001 * 

= $R4 

SR2,=Z*003h' 

SK2,=$R5 

>RPK2 

$R3,<KPK3 

*B5*<PNER 

* 38 * 

SR5 *<LLVL 
>RPK 3 

SR4*=Z*8080' 
SR4,<CLVL 
= SR4 

Sbl,<DEVIH 
SB1 * <ISARP 
$R 6 ,<CLVL 
SRl,=$Kb 
Sbl*<ISATDV 
Sbl*<ZHISAZ.$kl 
SK5,<kPF 
SR 6 ,<RPC 

SK3 * <KPK3 

SB5♦<IN1Z 

Sbl♦<kPG 

SB1+<SA15P 

SB1♦<SA15DV 

Sbl♦<ZHISAZ+15*$AF 

=Z»6000'+15 


Sb6»<KPt>6 
SB6 

UO 
SAF ,0 


LABEL2 WHElN * 11 SH ° ULDN ' T HAVt 
SKIP THIS LEVcL ZtRO CAN* T KUPT 
IS DEVICE AT LEVEL 63? 

YES - SKIP SInCE 63 CAN* T KUPT 
CUKRENI PROGRAM LEVEL 
SET FUIUKE LEyEL 

stoke in program level 

ACTION FUR LEV INSjR 

CHANGE AODRESo IN ISA 

STOKE IN P COUNTER 

DROP TO 63 TO ENABLE PENDING RUPT 

RETURN TO HERl 

SET UP FOR oElAY 

WAIT HERE FOR WHILE 

RESTORE DEVICt LEVEL TO R5 

SHUT OFF LEVEL 63 bIT 


DIDN'T RUPT WHEN Cp LvL WENI TO 63 
LABEL2 

ARE THE PROG mND DEV AT SAME LVL? 
YES - NO NEED FOR LEV 


RESTORE POINTlR TO HANDLER 

RESTORE PROG lEVEL TO R6 

PUT IN I 0 Ri 

ISA FOR PROGRAM 

RESTORE INTERRUPT VECTOR 

CHANGE DtVICE LEVEL AND BRANCH 

CHANGE PKOGRAh LEVEL AND BRANCH 

KESTORt K3 FOR RETyRN 
INITIALIZE 

CONTINUE AT RPO AFTER "LtV M 

INTERKUP1 SAVl AREA 
INTERRUP( VECTOR 
SUSPEND TO CPU LVL 15 
"LEV” DION * T RUPT TO LVL 13 

RESTORE RETURN ADDRESS 
RETURN 

RESTORE K3 FOR INDEX 


a***************************************************##*##*#a*******####* 

* STATUS TEST. CHtCK ALL BITS OF BOTH STATUS WORoS. 

* FIRST SEE THAT ALL BITS CAN BE SET AND THAT ALL BITS ARE RESET 

* BY (HEIR SPECIFIED INSTRUCTIONS. 


LABEL! 

GET OFF bOT 

FORCE STATUS wQRD i TO FFFF 


0 7 4 A 

D380 

Op A2 

SA 

LNj 

SB5 »<LAbEL 

074C 

5341 



DC 

»SA» 

0 7 4L/ 

D380 

134D 


LNJ 

SB5,<EKAW 

0 7 4 P 

8070 

FFFF 

SAA 

iu 

=Z'FFFF',<OTSTW1 

0 751 

0000 

22C0 




0753 

0 7 F C 



biOP 

>SAA 

0 754 

8070 

FFFF 

SAB 

ID 

= Z•F F FF* » < 0 TSIW2 

0 7 56 

0000 

22C1 




0758 

07FC 



BIGF 

>SAd 

0759 

6700 

21B4 


CL 

<STAl1 

075u 

6700 

2 1 B5 


CL 

<ST AT2 

075D 

D360 

0FC5 


LNJ 

SB5♦< TIME 

07 5 F 

0002 



DC 

2 

0760 

D360 

OFEC 


LNJ 

SB5 * <1NSTAT 

0764 

A800 

21B4 


LDK 

SR2 + <STA11 

0 764 

A970 

FCFF 


CMR 

$R2 * =Z'FCF F• 

0766 

0968 



BnE 

> SAl 

07 6 7 

AbOO 

2 1B5 


LDk 

$K2,<STAT2 

0769 

A630 

20F A 


XUR 

$R2»<DXDENS.$K3 

0 76b 

A970 

8 F F F 


CMR 

SK2 » sZ' 8 F FF• 

0 /OD 

0904 



bL 

>SAu 

076L 

D360 

1030 

SAC 

LNJ 

Sb5 + <FNeR 

07 70 

3435 


FNLK45 

DC 

'45* 

0 771 

D360 

OFEC 

SAD 

LNJ 

SB5 9 <INSTAT 

0 7 73 

9600 

21B4 


LDK 

SR1$<STATI 

0 775 

9970 

6 CF 9 


CMR 

SKI«=Z'BCF9* 

0 7 7 7 

0988 



bNE 

> SA t. 

0 7 7o 

9600 

21B5 


Luk 

SR 1 * <STAT2 

0 7 7 A 

9630 

20FA 


XUK 

SKI*<DXDtNS.$R3 

0 7 7C 

9970 

6 F F F 


CMR 

SRI ♦sZ'BFFF* 

0 7 7 E 

0904 



bL 

> SAP 

0 7 7 F 

D380 

1030 

SAL 

LNJ 

SB5 ,<PNER 

0761 

3436 


FNLK46 

DC 

*46* 

0 7 64 

6070 

FFFF 

SAP 

IU 

= Z'P FP F*» < 0 TSIW1 

0 764 

0000 

22C0 




0 766 

07FC 



biOF 

>5Af- 

078 7 

D380 

0FC5 


Lnj 

$B5 * <TIME 

0789 

0002 



DC 

2 

078M 

6000 

22A5 


IU 

<NOPEK«<OTTAS< 

07 8 C 

0000 

22C2 




0 7 8 l 

D380 

OFEC 


LNJ 

Sb5,<lNSTAT 

07 90 

9600 

21B4 


LDR 

$R 1 + <ST AT 1 

07 94 

9970 

FFFF 


CMR 

SRI»=Z» FFFF * 

0794 

0968 



bNE 

>SAh 

0795 

9800 

21B5 


LDR 

SR 1»<STAT2 

0797 

9630 

20FA 


XOR 

SRI*<DXDENS.SK3 

0 799 

9970 

8 F F F 


CMR 

sRl*sZ' 8 FFF' 

0 79b 

0904 



bL 

>SAo 

079C 

0380 

1030 

SAH 

LNJ 

SB5,<FNER 

079c. 

3437 


FNER47 

DC 

•47* 

0 7 9P 

8070 

FFFD 

SAG 

10 

=Z'PFPD»•<0TSTW1 


FORCE STATUS wORD 2 TO FFFF 


TIMEOUT TO ALLOW FOR POLLING 
2 MSECS 
GET STATUS 

N/BQT« N/EOT 
B IF SI Ai l NG 

MASK WITH DENSITY BIT 
N/K*ND* N/PROTECT* N/Hl DENS 
B IF SI AI OK 
ST AT SB FCFF-oFFF 
LABEL2 

GET STAT. SHOULD RESET SOME BITS 

DID WE RESET ATTN * N/EXIST RES* BUS PAR 
B IF SI AT I NG 

MASK WITH DENSITY BIT 

B IF STAT OK 
STAT SB BCF9-8FFF 
LABEL2 

SET STATi AGAIN 


TIME TO POLL* BUT W0N»T BECAUSE THERE'S. 
...NO CHANGE IN "RfoND" STAT BIT 
TASK WORD SHOULD NOT Bt ACCEPTED 

GET STAT 

SHOULD BE bOT, EOT BECAUSE DIDN'T POLL 
BUS PAR. ERR dHOULD PREVtNT OTTASK 
B IF NG 

MASK WITH DENSITY BIT 
STILL 8FPF FRuM TEST "SAD" 

B IF STAT QK 
STAT SB FFFF-cFFF 
LABEL2 

SET STATi = l's EXCEPT "BUS PAR" 
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0 7 A1 

0000 

22C0 






0U2 159 

07A3 

07FC 



b 1 OF' 

> SAG 



002160 

07 A* 

6070 

FFFF 

SAI 

1U 

=2*PFFF*,<0TS1W2 


SET STATUS dI IS 


0 7 Ab 

0000 

22C1 






002 161 

07 Ab 

07 F C 



biUF 

> b A i 



002 x 62 

0 7A9 

0360 

OF C5 


LRJ 

SB5,<T1 ML 


TIMEOUl FOR PuLLIRg 

002X63 

0 7Ab 

0002 



oc 

2 


2 MSEC 

00216* 

0 7 AC 

6000 

22A6 


lu 

<N0rLK,<0TTAS< 




0 7 A L 

0000 

2 2C2 






002166 

0 7bO 

0380 

OF EC 


LN J 

Sb5 , < INST AT 



00216b 

0 7b2 

9800 

21B4 


LOK 

SR 1 , <STAT 1 



0 U 2 16 7 

07b* 

6980 

*0E9 


CM2 

<bolflg 



002166 

o 7bb 

0906 



bt 

> SAn 


b IF B0C2 

002169 

0 7 b 7 

A800 

2180 


L uH 

SR2,<FIKM 


GET FIRMWARE kEV RMbR 

002170 

0709 

2021 



Cm v 

*K2, = X»21» 


REV *21 

002171 

OYbA 

0204 



bL 

>SAk 


b IF B0C3 ARO BEFORE REV *21 

002172 

07bd 

9970 

COOO 


CMR 

SR 1 , =2 *COOO * 


ATTR b1T 

002173 

0 7 bu 

OF 63 



b 

>SAl 


CONTINUE 

00217* 

ovbL 

9970 

8000 

5AK 

CMR 

$K1i = 2* 8000 * 



002176 

0 7CO 

0966 


bAL 

bNu 

> b A j 


B IE RG 

002176 

0 7Ci 

9800 

2lb5 


LUR 

SRI,<STA12 



002177 

0 7C3 

9630 

2 OF A 


XUK 

SKI,<DXDENS.$*3 


MASK a 1TH uENoITY BIT 

002176 

07 C 6 

9970 

6000 


CMR 

Sk1,=2 * 8000• 



002179 

0 7C7 

0904 



bn 

> SB 


b IF UR 

002160 

0 7C6 

u360 

1030 

SAJ 

LRJ 

Sb6 ,<FRLK 


STAT SB 8 OOO- 0 OOO AFTER OTTASK 

002 18 i 

0 7Cm 

3636 


FNLK65 

OC 

*65* 


LABEL2 

002 182 




*- - - 

... 


- — - 


002183 




* blT 

RESET!iNy HmS BEEN CHlCKlO. 

NOw CHECK OPERmTIOR of INDIVIDUAL 

00218* 




* BITS 

. FIRST 

RLAb REVERSE. CHECK 

FOR APPROPRIATE ERRORS (OP CHUCK, 

002186 




* FUNCT I0NAL1 F Y Nul AVAILAbuL) 

• 


002166 




* 





002187 

0 7Cd 

0360 

OF A2 

Sb 

LRJ 

*05 *<LAbtL 



002186 

0 7Cb 

634*. 



OC 

•SB* 


lablli 

002189 

07Cl 

0380 

174b 


LRJ 

SB6i<GObUT 


REWIND 

002190 

0 7dO 

0380 

1340 


LRJ 

Sb5,<EKAW 


Gt1 OFF bOT 

002191 

07b* 

6000 

22 A3 


10 

<RLmOKV ,<gttask 


TRY TO RLAO baCKWARDS, SHOULDN’T. 


0 7b4 

0000 

22C2 






002192 

0 7 Db 

0 F 7 F 



NOP 

>4-1 


OLLAY 

002193 

0 7b 7 

0380 

OF EC 


LRJ 

Sb5 » <INST AT 



00219* 

07b9 

9800 

2 1B4 


LOK 

SR11<STA r1 



002196 

0 7Dd 

9970 

8010 


CMR 

SR 1,=2*8010* 


ROY, UP CHECK 

00*19o 

0 7bb 

0981 

0008 


ORL 

SBA 


b IF RG 

002197 

0 7DF 

9800 

2 105 


LOR 

SRI*<STAT2 



002196 

0 7L1 

9630 

20F A 


XOR 

SRI,<OXDENb.$ 93 


MASK WITH DENSITY BIT 

002199 

0 713 

9970 

8010 


CMR 

SRI ,=2*8010* 


OR LlRt, FURC R/AVaILABLE 

0u2c00 

07E6 

090* 



bL 

>5Bb 


B IF SlAI OK 

0u2c01 

0 7 Lb 

O3C0 

0849 

6BA 

LRJ 

Sb5,FNER 


STAT SB 8010-o010 AFTER READ REVERSE 

002*0* 

0 7L6 

323 7 


FNEK27 

OC 

*27* 


LABEL2 

002203 




* 





00220* 




* TRY 

TO WRITL RLC LESS THAN MIR# 

aLLOwEO LENGTH (FROm BOT). 

002*05 




* SHOULD SET 

OP CHECK ARO NOT 

MOVE 

OFF bOl. 

002206 




* 





002207 

07L9 

03b0 

174b 

bBb 

LRJ 

$B5,<G0b01 


KtWlNb 

002*06 

07Eb 

8761 



CL 

= 4Ri 


KANgE = 0 

OU2209 

0 7 EC 

6160 

1 7Eb 


10L0 

<WBUF »<10WR1T, = SR 1 



07EL 

0000 

22BC 







07F 0 

0051 







002 2 10 

07F1 

07F8 



blOF 

> bbb 



00221 1 

0 7 F 2 

8000 

22A2 

bBC 

10 

<WR11E »<UTTASK 


TRY TO WRITE 


0 7 F * 

0000 

22C2 






002212 

0 7 F b 

07FC 



b 1 OF 

>SBC 



002*13 




* 





0022 1* 

07F 7 

0360 

OFEC 


LRJ 

SB5i<IRST AT 



002216 

0 7 F 9 

9800 

21b4 


LOK 

SRI,<STAT1 



002216 

0 7 Fo 

9970 

8210 


CMR 

SRI,=2*8210* 


ROY, bUT* OP CHECK 

00221 7 

0 7Pb 

0966 



bRt 

> bbb 


B IF RG 

002216 

07FL 

9800 

21b5 


LOR 

SRI,<STA1 2 



002219 

0600 

9630 

20F A 


AOR 

SRI ,<DXDENb.S*3 


MASK WITH DENSITY BIT 

002220 

080* 

9970 

8000 


CMR 

SRI ,=2*8000* 


ON LINt 

002*21 

ObO* 

090* 



bL 

> SC 


B IF UK 

002222 

0806 

0360 

1030 

bbb 

LRJ 

SB5 ,< FRLR 


STAT SB 8210-O000 FOR WRITE W/RNG=0 

002223 

080 7 

3236 


FNLR28 

OC 

*28* 


LABEL2 

00**2* 




*- - - 

... 


, . . 


002226 




* WRITt DATA 

FROM BUT. THEN TRY 10 

i READ THAT KEC (WITH RANGt = 0). 

00222b 




* bHOULD G1VL 

. SAMl RESULTS Ab 

DOING * F ORWARD SPAlE A RECORD*. 

00222 7 




* ROTE ! IF CmMT WRITE FIRST KLCORb, AdOK 1 F E5T S SC And SO. 

00*226 




* IF CAR • T READ FIRST RECORD, 

GO OR AND T*Y REST OE TfST 

002229 




* ANYWAY. 




00 2 2 3 0 




* 





002231 

0806 

0380 

OF A2 

SC 

LRJ 

SB5,<LAbLL 



002232 

ObOA 

5343 



OC 

•SC* 


LABEL1 

002233 

060b 

0380 

174b 


LRJ 

$B5 , <GObOT 


REWIND 

00**3* 

060b 

6730 

2 OF E 


-CL 

<DXFR.$R3 


CLEAR FILL NMbR 

002*36 

080P 

8730 

2 1OE 


CL 

<OXKR.4K3 


CLEAR NEC RMBk 

00223b 




* 





002237 

0611 

0380 

10DE 


LRj 

Sb5,<WRLC 


WRITE A KEC 

002236 

0613 

oooc 



OC 

X»OC* 


OATA 

002239 

0614 

0040 



OC 

64 


RANGE (DEC) 

002240 

0616 

17E6 



oc 

< WbuF 


BUFFER 

0022*1 

0816 

10C2 



oc 

< R T * 


RETRY ROUTINE (NOP) 

002242 

061 7 

08 AE 



DC 

<5L 


RETRY LOC (ABORT) 

002243 

0816 

1000 



OC 

<ABK3 


ABORT ROUTINE (NOP) 

00224* 

0619 

08 AE 



OC 

<SL 


abort location 

002*46 




# 





002<_4b 

Ob 1 m 

0380 

174b 


LRJ 

SB5 , <GObOT 


REWIND 

002*47 




* 





002246 

08 i0 

0380 

10b6 


LRJ 

SB5,<SLT 


SET UP FOR REmO 

002*49 

Obit 

0360 

1180 


LRJ 

Sb5 , <RRLC 


READ A RECORD 

002250 

0820 

0040 



OC 

64 


RANGE 

002251 

0621 

1C66 



OC 

<RbuF 


BUFFER 

002252 

0622 

IOC* 



OC 

<RT* 


RETRY ROUTlNt (NOP) 

002253 

0623 

0826 



OC 

<SCF 


RETRY location 

002*5* 

062* 

1000 



oc 

< ABK3 


ABORT ROUT INL (NOP) 

002255 

0825 

08 AE 



oc 

<SL 


AbORT LOCATION 

00225b 




* 





002257 

062b 

0380 

174b 

SCF 

LRJ 

4B5,<GOBOT 


REWIND 

002258 

0828 

0380 

17 5C 


LRJ 

SB5,<FRB33 


FILL RtAD BUF W/*33» 

002259 

062A 

6751 



CL 

= 4R 1 


range = u 

002260 

082b 

8160 

1C66 

SCA 

iuLO 

<RBUF,<1QRLA0,=4K1 



062b 

0000 

223b 







062P 

0051 







002261 

0630 

07FB 



blOF 

>SCA 



002262 

0831 

8000 

229F 

SCb 

10 

<RLAOFO,<OTTASK 
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0833 

0000 

22C2 





002263 

0835 

07FC 



biUF 

>SCb 


002*64 

0836 

0360 

136E 


LNJ 

$B5,<GETRNG 

WAIT FUR ROYt GET RANGE 

002*65 

0838 

0360 

OFEC 


LNJ 

$65,<INSTAT 


002266 

083A 

9800 

21b4 


LOR 

$R1,<STAT1 


002267 

083C 

9970 

8080 


C MR 

$Rl* = Z * 8080 * 

RDY, UNEQUAL lENGTh CHECK 

00226a 

083E 

0968 



BNE 

>SCC 

b IF NG 

00226V 

Ob 3 F 

9800 

21B5 


LOR 

$R1,<S T AT 2 


002270 

0841 

9630 

20F A 


XOR 

$R1,<DXDENS.$R3 

MASK WITH DENSITY BIT 

002271 

0843 

9970 

6000 


C HR 

$R1 * = Z’ 8000• 


002272 

0845 

0904 



BE 

>5C0 

B IF OK 

002*73 

0846 

0380 

1030 

SCC 

LlNiJ 

$B5,<FNER 

STAT SB 8060-6000 FOR REAP W/RANGE=0 

0022 74 

084b 

3438 


FNEK48 

OC 

• 48 1 

LABEL2 

002275 




# 




002276 

0849 

9800 

1C66 

SCO 

LOR 

$R1,<R0UF 


002277 

064b 

9900 

2 lbF 


CMR 

$R1,<X3333 

CHECK OAIA (FiRST byte) 

00227b 

0840 

0984 



bNt 

>SCt 

B IF DATA GOT TRANSFEREO 

O0227V 

064L 

8980 

2190 


CMZ 

<RANGt 


0U2280 

0850 

0904 



bt 

>S0 

B IF RANGE OK 

002281 

0651 

0380 

1030 

set 

LnJ 

$b5,<FNER 

RNG SB =0, DATA SB s»3333» 

002282 

0853 

3439 


FNER49 

OC 

• 49* 

LABEL2 

002283 




*- - - 




002*84 




* UNEQUAL LENcTH CHECK, WORK WITii 

64 BYTE RtCORO PREVIOUSLY WRITTEN FROM 

002283 




* BUT. 

FIRST 

CHECK WITH TOO LARGE 

A RANGE. (NORMAL OPERATION ALREADY 

002286 




* VERlFltO IN 

SUBROUTINE *ONLS» *H 

EN WRITTEN.) 

002287 




* 




00228 b 

0854 

0380 

OF A2 

SO 

LNJ 

$65,<LABEL 


004*89 

0856 

5344 



OC 

•SO* 

LABEL 1 

002290 

0657 

0360 

174 b 


LNJ 

$B5, <.GOBOT 

REWIND 

002291 

0859 

0380 

1 75C 


LNJ 

$65,<F RB33 

FILL REAP BUF W/*3333» 

002292 

065b 

9870 

0041 


LOR 

$R1*=65 

LONG RANGE (BYTES) 

002293 

0650 

8180 

1C66 

SOA 

I OLD 

<RB0F,<10REA0,=$R1 



Ob 5 F 

0000 

22 Bb 






0861 

0051 






002294 

0662 

07 TB 



BIUF 

>SOA 


002295 

0863 

8000 

229F 

SOb 

lu 

<RtADFD,<OTTASK 



0865 

0000 

22 C2 





002296 

066 7 

07FC 



BIUF 

>SOb 


002*97 

0868 

0380 

1 36t 


LNJ 

$65,<GETRNG 

WAIT ROY* GtT RANGE REGAINING 

002298 

066A 

0360 

OFEC 


LNJ 

$B5 »<INSTAT 


002*99 

066L 

A800 

2190 


LOR 

$R2,<RANGE 


002300 

0 861 

2001 



CMV 

$R 2 , = 1 


002301 

066F 

0992 



bne 

>soc 

b IF 'RANGE* NOT EQUAL 1* NG 

002302 

0670 

8601 



OEC 

= $R1 


00230;) 

0671 

A* 90 

1C66 


LLH 

$R2,<RBUF * $R1 

GtT LAST BYTL OF PATA 

002 304 

0873 

2033 



CMV 

$R2,-X 1 33 * 


002305 

0674 

0980 



bNt 

>soc 

b IF LASI DAT* TRANSFEREO, NG 

002306 

06 7 8 

9800 

21 b4 


LOR 

$R1,<STAT 1 


002307 

06 7 7 

9970 

6080 


CMR 

$R1,=2•8080• 

ROY, UNEQUAL lENGTh CHECK 

002308 

0879 

0968 



BNt 

>SUC 

b IF SI ATI imG 

002309 

087A 

9600 

2165 


LOR 

$R1,<ST AT2 


002310 

087C 

9630 

20 FA 


XOR 

$R1,<OXDENS.$^3 

MASK wiTH OENjITY BIT 

002311 

067L 

9970 

8000 


CMR 

$R1,=Z *8000 • 


002312 

0680 

0904 



BE 

>S0U 

B IF OK 

002313 

0661 

0380 

1030 

SOC 

LNJ 

$B5,<F NER 

RNG Sb =i* STaT SB 8 O&0-b00U... 

002314 

0683 

3530 


FNEK50 

OC 

• 50* 

LABEL2 . . . A <v* D LAST DATA bYTE SB =33 

002316 




* UNEQUAL LENGTH CHECKS, USE TOO SHORT A RANGE 

002317 




* 




00231b 

0884 

0380 

174b 

SOU 

LNJ 

$B5 *<GObGf 

REWIND 

002319 

0866 

0380 

175C 


LNJ 

$b5,<F RB33 

FILL bUF WITH 3333 

002 b20 

0868 

1C3F 



LOV 

$R1*=63 

SHORT RANGE, oYTES 

002321 

0b89 

6180 

1 C66 

SOL 

iOLO 

<RBuF,<I0REA0,=$R1 



086 b 

0000 

22 bB 






0860 

0051 






002322 

088L 

07Fb 



BIUF 

>SOt 


002323 

0 6 8 F 

6000 

229F 

SDF 

10 

<REAOFO,<OTTASK 



0891 

0000 

22C2 





002324 

0693 

07FC 



BIUF 

>SOF 


002823 

0694 

0360 

136E 


LNJ 

$b5,<Gt T RNG 

WAIT FUR RDY, GtT RANGE 

002326 

0696 

0380 

OFEC 


LNJ 

$B5,<1NST AT 


002327 

0898 

8960 

2190 


CM2 

<RANGE 


00232o 

069A 

0991 



bNt 

>SOG 

B IF RANGE NOi EQUAL 0* NG 

002329 

069b 

A290 

1C66 


LLH 

$R2,<RbUF. $R 1 

GET LAST-PLUS-ONE DATA BYTE 

002830 

0890 

2033 



CMV 

$R2 , = X * 33 * 


002331 

069b 

0980 



bNE 

>SOc 

b IF WANGE ♦ i WAS JRANSFENtD, NG 

00233c 

089 F 

9800 

2164 


LOR 

$R1,<STAT1 


002333 

06A1 

9970 

8080 


CMR 

$R l , = Z 1 8080 * 

RDY, UNEQUAL uENGTh CHECK 

002334 

06A3 

0966 



BNt 

> SDe 

b IF SI All NG 

002835 

O 6 A 4 

9600 

2 1 b5 


LOR 

$R1,<SI AT 2 


002336 

Ob A6 

9630 

20 FA 


XOR 

$Ri,<DXDLNS.$R3 

MASK WITH DENjITY bIT 

002337 

0oA6 

9970 

aOOO 


CMR 

$R1,=Z • 8000• 

ON LINE 

00233o 

ObAA 

0904 



bt 

>3E 

b IF UK 

002339 

06Ab 

0380 

1030 

SOG 

LNJ 

$65,<FNER 

RNG Sb=0* STAI Sb 6080-8000... 

002340 

002341 

06AO 

3531 


FNER51 

OC 

•51* 

LABtL2 .•.LmST byTE*l Sb=33 

002842 




* VERIFY THAT 

AN •OPERATION CHtCK» 

RESULTS WHtN THE lOLD INDICATES A 

002843 




* RE AO 

OPERATION ANO THE TASK INOICATES A WRITE uPERAtION. START AT 

002344 




* bOT, 

ANO SHUULONM MOVE OFF BUT. 


002345 




* 




002346 

08 AL 

0360 

0FA2 

SE 

LNJ 

$B5,<LAbEL 


002347 

ObbO 

5345 



OC 

• SE • 

LABELI 

002346 

06 bl 

0360 

174 b 


LNJ 

$65,<GOBUT 

REWIND 

002349 

08b3 

1C40 



LOV 

$R1,=64 

RANGE 

002350 

0ob4 

6180 

1 C66 


IOLO 

<RBuF,<10REA0,=$Rl 

(SET UP FOR RlAD Up) 


06 b6 

0000 

226b 






Obbb 

0051 






002351 

06b9 

07F5 



BiUF 

> St 


002352 

08BA 

8000 

22A2 

SEA 

10 

<WRI T t,<0TTASK 

ACTUALLY TtLL IT To WRITE (A CONFLICT; 


ObbC 

0000 

22 C2 





002353 

ObbL 

0 7FC 



BI OF 

>SEa 


002354 

ObbF 

0360 

OFEC 


LNJ 

$B5,<1NSTAT 


002355 

08C1 

9800 

2164 


LOR 

$R1,<ST AT 1 


002356 

08C3 

9970 

6210 


ChR 

$R1, =Z * 8210 • 

RDY, BUT* UP CHECK 

002357 

0bO5 

0968 



BNE 

> SEb 

B IF SI AT 1 NG 

002356 

ObCb 

9800 

2 1B5 


LOR 

$R1,<3 TAT 2 


002359 

06 C8 

9630 

20FA 


XOR 

$R1 *<DXDEN5.$R3 

MASK WITH DENSITY BIT 

0 u2 360 

08CA 

9970 

6000 


CMR 

$R1,=2*8000* 

ON LINE 

002361 

06CC 

0904 



bt 

>SF 

B IF S1 A1 OK 

002362 

ObCO 

0380 

1030 

SLb 

LNJ 

$65,<FNER 

STAI SB 821Q-oOOO for WR1TE/REAO CONFi 

002363 

06CF 

3532 


FNEK52 

OC 

• 52 • 

LABEL2 

002364 




*- - - 

— — - . 



002365 




* CHECK OPERATION OF "ANSI INHIBIT 

". firsi write a "Short” record* 



,4 >\ 
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002 36b 




* POLLOWlO BY 

A FILL HARK. (BYPASS IF P.t. OkIVt) 

00c 36 7 




* 




00236b 

ObDU 

0360 

OF a2 

OF 

LNJ 

Sb51<LAbhL 


00236V 

06134 

3346 



UC 

»bP» 

LABEL 1 

002370 

06133 

82 bO 

20E9 


Lb 

<BDuP LG *=1 



ObD5 

0001 






0 0 2 3 7 i 

06136 

0565 



bbF 

> SFri 

B IF B0C2 

002374 

0613/ 

69b0 

20FA 


CHE 

<0XJLNb.$K3 

CHECK DENSITY FLAG 

0023 73 

06139 

0980 

09 A3 


bNt 

< SH 

b IF THIS IS A P.E. DRIVE 

0 u 2 3 7 4 

06136 

0360 

174b 

3FH 

LNJ 

Sb5*< GQbOT 

REWIND 

002373 

0600 

8000 

22A6 


lu 

<ANoiNH,<OTCGNP 

(INHIBIT ANSI) 


08DP 

0000 

22b0 





UU43 7b 

Obt 1 

07 EP 



b 1 OF 

> bF 


OU4j77 




* 




0023 7b 

Ob t2 

9670 

aAAA 


LOR 

bk 1 * =2’AAAA » 

DATA 

00237V 

06t4 

9 F 00 

17E6 


blK 

SRI * <. WbUP 


002366 

Obt.6 

8160 

1716 

bFA 

IOLO 

<WBOF*<lOWKiT#<DC2 

(RANGE = 2) 


ObEb 

0000 

24bC 






ObtM 

0000 

20EU 





002361 

Ob LC 

07 F A 



blUF 

>SF a 


0U2 38*: 

Ob EO 

6000 

22A2 

bP b 

10 

<WRiIt*<OTTASK 

(WRITE SHOkT kEC* RnG = 2) 


08 LF 

0000 

22C2 





002383 

08 F 1 

07 FC 



blUF 

> bF b 


002384 

ObF 4 

U3b0 

OF EC 


LNJ 

bb5♦c1NbT AT 


002383 

O8F4 

9800 

2164 


LOR 

$ K1♦ < S T A11 


002386 

ObF 6 

9970 

8000 


ChR 

Ski * =2 * 8000 * 

ROY 

002387 

ObF 6 

0968 



bNL 

>SPG 

b IF SI All NG 

002386 

06 F 9 

9800 

4 lb5 


LOR 

*R1*<bTA72 


00236V 

CbPb 

9630 

4 OFA 


XUK 

$K1 ,<DXDtNb.$R3 

MASK WITH OENuITY BIT 

00239U 

06 FO 

9970 

bOOO 


CHR 

Ski*=2*8000* 

ON LlNt 

002391 

ObF T 

0904 



bt 

>SFj 

b IF S 1 A 1 QK 

00239*: 

0900 

I33b0 

1030 

bFC 

LNJ 

SB5 *<FNtk 

STAT Sb 8000-6000 AFTER ANSI INH WRIT 

002393 

0902 

3533 


FNER33 

OC 

*53* 

LABEL2 

002394 




* 




002393 

0903 

6000 

22A9 

bFO 

IU 

<NORMAL»<OTCONF 

RESET ANSI 1Nm 


0903 

0000 

2200 





002396 

090 i 

0 7PC 



blUF 

>SF u 


002397 

0906 

0360 

13 1A 


LNJ 

S b 5 * < W F M 

WRITE FILE MAkK 

002396 

090a 

0360 

174b 


LNJ 

$B5 * < GOBOT 

REWIND 

00239V 




* 




C02400 




* NOW 

F URwAK j 

SPAut A RtG IN NORHAL MODE. SHOULD BYPASS THE 

002401 




* bHOKT "NQlbL" RECORD AND GET TO 

1 HE FILE HARK# 

00240*: 




* 




002403 

04 OC 

0360 

1 3E9 


LNJ 

Sb5 * < P bR 

START 10 FORWARD SpACE A RtG... 

002404 

OVOl 

0360 

OFEC 


Lnj 

$65 * < INblAT 

WAI1 FUR ROY# GET STATUS 

002405 

ovlo 

9600 

2184 


LOR 

$k1*<bTAT 1 


002406 

0914 

9970 

6C00 


CHR 

$R1,=Z«8C00» 

ROY# CUk MED c.RK # EM DET* N/bQl 

002407 

09 14 

0961 

0008 


dnE 

bF E 

B IF SI AI1 NG 

00240o 

0916 

9800 

21b5 


LOR 

bR 1 * <5T AT2 


00240V 

091b 

9630 

2 0 F A 


XuR 

$R 1 *<DXDtNb.$-<3 

MASK WITH DENSITY BIT 

002410 

09 1A 

9970 

8000 


CHR 

SRI » =2 1 6000 * 

ON E I Nt 

0044 1 i 

091C 

U904 



bL 

>SF F 

B IF ST A1 OK 

0024U 

0910 

0360 

1030 

bP t 

LNJ 

$b5 1< PNtR 

STAT Sb 8COO-0OOO FOR NON.ANSI READ.. 

0044 1 3 

09 IF 

3534 


FNEK54 

oc 

» 54 » 

LABEL4 ...OF SHORT RtG# FM DE T EC TED 

002414 




* 




UU*.4 1 5 




* KEPLAl FUK a 

AKU 8P ACE FROM bOT * 

buT WITH ANSI InHiblTFD. 

00241b 




* bHOULO STuh 

AFTtk M SHORT M RECORD AND NOl GET Tu FM DETECT# 

002417 




* 




002416 

0920 

0360 

174b 

bFF 

LnJ 

$65,<GObOT 

REWIND 

002419 

0922 

8000 

22A6 


lu 

<ANblNH,<OTCONF 

( INHIbiT ANSI MODE) 


0924 

0000 

22bO 





00242U 

092o 

0 7 F A 



blUF 

>SF F 


002421 

0927 

0380 

13E9 


LNJ 

$B5 1 <F SR 

START 10 SPACfc. 

00242*: 

0929 

0360 

OF tC 


LNJ 

ibb . < INbT AT 

WAIT ROY* GET STAT 

002423 

092b 

9800 

21B4 


LOR 

$kl*<bTATl 


00*1424 

092b 

9970 

8000 


CHR 

3>k 1 * =2 * 8000 1 

ROY* N/FM DET 

002423 

Ov2 F 

0966 



bNt 

>SPu 

b IF SIAI NG 

00242b 

0930 

9600 

21 b5 


L UK 

$K1 * < b T AT 2 


002427 

0934 

9630 

20FA 


XuR 

*kl*<DXDENS.$R3 

MASK WITH DENSITY BIT 

00242b 

0934 

9970 

bOOO 


CHR 

Ski , =2*6000' 

b IF OK 

00242V 

0936 

0904 



bL 

> SG 

b IF OK 

002430 

093 7 

0380 

1030 

bF (j 

LNJ 

$B5,<FNtk 

STAT Sb 8OOO-0OOO FOR READ bHOK1 REC. 

002431 

0939 

8535 


FNER55 

0 L 

• 55 » 

LABEL2 ...WITH ANSI INHIbITEO 

002434 





- - - 



002433 




* LRC 1 

CkC * VRC tKKUR TLbT ( bK1P 

IF P.t. DRIVE) 

002434 




# 




002433 

0 9 3 A 

0380 

0FA2 

bG 

LNJ 

$63 • <LAbtL 


002436 

0V3C 

5347 



OC 

» SG * 

LABEL 1 

002437 

0930 

2C00 



LUV 

$K2 , = 0 

CLEAR IHL 1NDlX 

00243b 

093E 

90F0 

PFPF 


LOH 

$R1*=-1 

DATA (=FF) 

002439 

0 940 

9660 

1 7 to 


LAb 

$b1 » < WbUF 


004440 

0942 

9P60 

21B3 


bT d 

Sbl,<bLDb 

SAVE FOR ERROR REPORT 

002441 




* 




002444 

0944 

97 EO 


bGA 

bTH 

SRItibl* + SK2 

FILL FIRST 31 BYTEs WlTti »FF» 

002443 

0943 

201F 



Chv 

$R2 * = 31 


002444 

094b 

027E 



bL 

> SGa 

KEEP LOOPING 

002445 




* 




00244o 

094 7 

67E0 


bGb 

CLH 

Sbl • + SK2 

CLEAR KtbT OF BUFFER 

002447 

0948 

A970 

0800 


CHR 

$R2 » =2048 


00244b 

094A 

0270 



bL 

>SGd 

KEEP LOOPING 

002449 




# 




002450 

094b 

97C1 

0011 


bTH 

$K1 * SB1.17 

FILL IN PHONEY CRC (34TH bYlt) 

002h 51 

0940 

97C1 

0013 


bT H 

$K1*$B1.19 

FILL FALbE LKu (38TH bYTt) 

002454 




* 




002453 




* BUFFER FILttO* NOW WRITE KtC IN 

0IAGNObIIC MGDl 

002454 




* 




002455 

094F 

0380 

174b 


Lnj 

$63,<GObQT 

REWIND 

002456 

0951 

6000 

22A6 

bGC 

1U 

<EVnPAR#<OTCONF 

(EVEN PAR* ANuI inh, diao MUDE) 


0953 

0000 

22UD 





002457 

0955 

07FC 



b 1 OF 

> SGc 


002456 

0956 

9800 

20EE 


LOR 

$R1,<DC4096 

GET RANGt 

002459 

Ov5b 

9F0Q 

2 191 


bTR 

$kl ,<KNG 

SAVE FUR ERROR REPORT 

00246U 

095A 

6160 

17E6 


IOLO 

< WbuF *< IOwRI1*<DC4096 


095C 

0000 

22BC 






095E 

0000 

20EE 





002461 

0960 

0 7 F1 



blUF 

>SGC 


002462 

0961 

8000 

22A2 

bGO 

1U 

<WR1 Tt * <0T T Ab< 



0963 

0000 

22C2 





002463 

0963 

07FC 



blUF 

>SGO 


002464 




* 




002465 

0966 

0380 

136E 


LNJ 

$B5* <GtTRNG 

WAIT FOR KDY 

00246o 

0968 

0380 

OFEC 


LNJ 

$B5 * < INST AT 


002467 

096 A 

9800 

21B4 


LOR 

$R 1 * < STAT 1 





TITlE MT US3 ,* REV G« 


NINE TRACK PE/NRZI MAj TAPE T&V (SAF) 
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002468 
00246V 
002470 
002471 
0024 72 
002473 
002474 
002473 
002476 
002477 
002476 
00247V 
002480 

002461 

002462 

002483 

002464 

002483 

00248o 


002487 

002486 

00248V 

002490 

002491 

00249c 

002493 

002494 

002493 

002496 

002497 

002498 

002499 

00230O 

002301 

00230c 

002303 

002304 

002303 

002306 

002307 

00230b 


002311 

002312 

002313 

002314 

002313 

002316 

002317 

002316 

00231V 

002320 

002321 

002322 


002326 

002327 


002330 

002331 

00c332 

002333 

002334 

00^333 

002336 

002337 

002336 

00^339 

002340 

002341 

002342 


096C 

9970 

A040 


CMk 

SRI,=2»A040» 

0V6L 

0966 



BNt 

>SGt 

096 F 

9600 

21B5 


LDR 

SRI ,<STAT2 

0971 

9630 

20F A 


XuR 

SRI,<DXDLNS.$K3 

0976 

,9970 

8602 


Cmk 

Sk1,=Z•8602 * 

0975 

0904 



BE 

>SGF 

09 76 

D380 

1030 

SGE 

enj 

Sb3,<FNLR 

0976 

3536 


FNER56 

DC 

•56* 




* REWIND AND 

READ IN NORMAL MODE 

09 7 V 

D380 

174b 

SGF 

LNJ 

sbs,<GObor 

097b 

6000 

22A9 


10 

<NOKMAL,<OTCO\F 

097D 

0000 

22bD 


09 7 F 

07 F A 



blOF 

> SGF 

0960 

1C1F 



LDV 

SIR 

SRI , = 31 

0961 

9F00 

219E 


SR 1,<RNG 

0963 

9bbO 

1C66 


LAb 

Sb1,<RBUF 

0963 

9F80 

2 1B3 


ST b 

Sbl,<SLUb 

09 6 7 

8180 

1 C6o 

SGG 

I OLD 

<RbuF,<iOREAD,=SK1 

0989 

0000 

22bb 



096b 

0051 





096C 

0 7Fb 



blQF 

> SGG 

096U 

8000 

229F 

SGH 

lu 

<RtADFD,<OTTASK 

096F 

0000 

22C2 



0991 

07FC 



bl OF 

> SGH 

0992 

D3faO 

136E 


Limj 

Sb5,<GE TRNG 

0994 

D380 

OF EC 


LNJ 

SB5,<INSTAT 

099o 

9800 

2lb4 


LDR 

$Ri,<STAT 1 

0996 

9970 

AOOO 


CMR 

Sk1 * =Z *AOOO• 

099m 

0986 



bNt 

>SGi 

099b 

9800 

2165 


LDR 

SRI,<STAT2 

U99D 

9970 

8700 


CMR 

SRI» =Z * 6 700 * 

099F 

0904 



bt 

>SH 

U9AU 

D380 

1030 

SGI 

LNj 

SB5,<F NLR 

09A2 

3537 


FNEK57 

DC 

• 57 • 




* CHECK DATA 

SERVICE RATE ERROR 

09 A3 

D380 

UFA2 

SH 

LNJ 

Sb5 »<LAbEL 

09A3 

5348 



DC 

• SH ♦ 

09A6 

8280 

20E9 


Lb 

<bDCF LG, = 1 

09 A6 

0001 





09A9 

U500 

09E3 


bbT 

<SI 

09 Ad 

8000 

22B3 


10 

<TESTMD,<OTCONT 

09 ad 

0000 

22BE 




09 AF 

8030 

22 AC 


10 

<LCHN0.SR3,<0TC0NT 

09b 1 

0000 

22bt 



09D3 

6000 

22 AA 


10 

<1NdEX,<0TCQN) 

09B3 

0000 

22BE 







* SET WRITE, 

wRllt DATA SERVICE, 




* DON* f 

PUT 

DATA INTO WRITE FIFO, 

09b7 

6000 

2205 


IU 

<WRlNB,<QTC0NT 

09b9 

0000 

22bt 



09bb 

D380 

0FC5 


LNJ 

SB5,< TI ME 

09BD 

0001 



DC 

= 1 


ROY, RETRY MEj ERR, NQN RETRY ERR. 
b I f* 31AI NO 

MASK WITH DENSITY BIT 

ON LINE, VRC, CRC, EOb EARLY ERRORS 

B IF OK 

STAT SB A040-o602 AFTER D1AG WRITE... 
LABEL2 .••WiTH ARTIFICIAL CRC 6 LRC GAP 

SHOULO HAVE VRl , CRC, AND LkC ERRORS. 


RANGE = 31 

SAVE FOR ERROk REPORT 


SAVE FOR ERROk REPORT 


WAIT FOR ROY* GET RANGE 


ROY, RETRY MEu ERR 
B IF SI Al l NG 

ON LINE, VRC, CRC, LRC ERR 
b IF OK 

STAT Sb A000-6700 AFTER READ REC... 
LABEL2 ...WHICH wAS D1AG WRITTEN. 


SKIP THIS TES| IF «BDC3 M FIRMWARE 
(SET TEST MODt) 

(OUTPUT LOGICAL CHan NMbR) 

(SET INDEX MQjE) 


(SET CONTROL nEG ONE, BITS 2, 


DELAY FOR AT LEAST ONE FRAME CNT 
1 MS 


* TRANSFlR STAT BYTE 2 TO SCRATCH-PAD* THEN INPUI STAj AND CHECK. 

10 <XFtk1,<0TCONI (SET SCRATCH-pAD ApR TO STAI 2) 


bbT 

LNj 

FNER58 DC 


<XFc.k 1, <0T CONI 
<XFt.R2 ,<01 CONI 
< WR1NH,< OT CON T 
<CLADAP,<OTCONT 

<SCKUY,<01 CON] 
<WA1TLP,<0TC0NT 
<N0IEST,<01CONT 


sB5,<INSTAT 
< ST Al2, = 2 * 0600• 

>Si 

SB3,< F NEk 

•38* 


(XFER STAT BYTE TO SCRATCH-PAD) 
(RESET WRITE uRDER) 

(ADAPTER HARD CLEAR) 

(SET CHAN RDY) 

(BRANCH |Q WAIT LOOP) 

(GET OUT OF TlST MODE) 

get status 

SERVlCt RATE cRROK ? 

B IF ERROR DETECTED, OK 
SERVICE KATE t_RRQR N/pETtCTED 
LABEL2 


* CHECK NON~tX1ST ANT KtSOURCt ERROR (FROM BUT) 

* 


0380 0FA2 
3349 

D360 174b 


Sb3 , <LAdtL 

•Si • 

Sb5,<GObOT 

ZVSkD.ZVSHM 


LABEL! 

rewind 

GET HMA IN B7 


002343 

002344 

002343 


Sbl,Sb 7.-7 

Sbl,<SLDb 

SB!,<IOWkiT,<0C32 


ROOM FUR ONLY 16 BYTES OF DATA 
(RANGE OF 32 oYTES) 


002346 

002347 

002346 
002349 
Q0233O 
00235i 
002 3 3*. 
002353 
002354 

002353 

002336 

002357 


>5Im 

<WR1T E ,<OTTAS< 
>Sib 

SB3,<INST AT 
SRI,<STAT1 
SR 1 , = Z * 6004• 
>SIC 

Ski,<STAT2 
= 3>R1,=Z»0800* 

Ski,<DXDENS.$R3 
sk1,=Z * 8000 • 
>SIU 


WAIT FOR N/bSY, get STAT 


b IF SI AT NG 

IGNORE SERVlCt, RATE ERROR, IF ANY 

MASK WITH DENSITY BIT 
ON-LINE 
b IF SI AI OK 





1 I1LE 1 

MT Ub3 «• 

KLV G* 

MINE 

TRACK PE/NRZI 

MAG 

TAPt T6v (SAP) 

PAGE. 

27 

002338 

OAOb 

0380 

1030 

bIC 

UMJ 

*B3»<FNER 

bTAT IMG* bb 

Function n/avail 

Ou<i339 

OaOo 

33 39 


FNEK39 

OG 

* 39 • 

LABEL2 


002 360 




* 





00236i 

OAUb 

03b0 

I6EB 

biO 

LNJ 

$B5*<1NIZ 

00 A bOC INI 

TiALiZE 

00b 36b 

0 A1 U 

0380 

I OOF 


LIMj 

ibb,<bENbE 

NtXT? 


002363 

OAlb 

8386 



JMP 

*B6 

RETURN 


00*. 3b a 




****** 

**** 

********************* 

***************************************** 




TITLE MT0S3 *•REV G* 


NINE TRACK PE/NRZI MAg TAPE T&v ( 5AF) 


PAGE 28 


002565 





/*********** ** ********************************************************** 

OOcbbb 





* 




0Q2567 





* TESTS AA- 

AS* GENERAL WKITt/READ 

ROUTINES 

00256b 





* 




002569 





*- - - 

- — 



002370 





* 


Sb5* <LABEL 


002371 

0A13 

0380 

0FA2 


FILt 

LNJ 


002372 

0A13 

4649 



FI 

6C 

»F I * 

LA6EL1 

002373 

0 A16 

8070 

0000 



10 

= 0 * <0T RUPT 

INHIBI1 INTERRUPTS 


0 A1 b 

0000 

226F 





002374 

0A1A 

0380 

174b 



LNJ 

$B5,<G060T 

REWIND* WAIT 

002373 

0 A1C 

0380 

OFtC 



LNJ 

$85 * <1NSTAT 

GET STATUS 

0 U 2 3 7 6 

OAlt 

9800 

21b4 



L6R 

$R1*<S1ATI 

002377 

0A20 

9970 

8200 



CMR 

$R1*=Z*8200* 

RDY* BUT 

00237b 

0A22 

098 F 




ONE 

>F1LEA 

B IF SI ATI NG 

002379 

0A2 3 

9800 

21B5 



Lok 

$K 1 * <STAT2 

00238U 

0 A2 3 

9630 

2 OF A 



XOK 

SKI*<DXDENS.$R3 

MASK WITH DENSITY BIT 

002361 

0 A 2 7 

AObO 

2102 



L6H 

SR2 * <DXMD.$R3 

GET MODE 

002382 

0A2 9 

A1F0 

5220 



CMH 

$R2.=«R * 

002383 

0A2O 

0983 




ONE 

>FILEC 

B IF NOT MODE "R m 

002384 

0A2C 

8851 




LbF 

= $K1 * = Z•2000 ' 

IGNORE "PROTECT" STATUS BIT 


0 A20 

2000 






002383 

0 A2 L 

9970 

8000 


FlLtC 

CHR 

SRI*=2*8000* 


002386 

0 A30 

0904 




bL 

>FILtb 

B IF S I AT 2 Ok 

002367 

0 A3 1 

0380 

1030 


FI LEA 

LNJ 

Sb5 *<FNER 

ST A f NG AFTER RWND 

00236b 

0A3 3 

3134 



FNEK14 

DC 

* 14 ' 

LABLL2 

002389 





* 



002390 

0A34 

0380 

1 3 1 A 


FILED 

LNJ 

$b3 * <WFM 

WRITE A FILE imARK 

002391 

0 A3 6 

8386 




JMP 

SB6 

RETURN TO HANDLER 

00239c 





************************************************************************ 

002393 





* TEST 

AA* 

WRITE RECORD CONIAiNlNG FILE ADDRESS* READ, CHECK 

002394 





* 




002393 

0A3 7 

0380 

OF A2 


A AS I 

LNJ 

SB5 *<LAbEL 


002396 

0A39 

4141 



AA 

OC 

•AA* 

LABELl 

002397 

00239b 

0 A3 A 

9680 

2306 


* 

LAb 

SB1*<SA10DV 

DEVICE RUPTS aT LVl 10 

002399 

0A3C 

9F8u 

000 A 

X 


Sib 

$B1*<ZHISAZ+1Q*$AF 

00260U 

0A3E 

9680 

17B3 



LAb 

SB1*<LEVV10 


002o0i 
002602 

0A40 

9F 80 

2309 


* 

ST b 

SB1*<SA10P 


0O2603 

0A42 

9830 

20FE 



L6R 

SRI*<DXFN.$k3 

GET CURRtNT F 1 Lt N^BR 

002604 

0A44 

1008 




CMV 

SRI * = 8 

002603 

002606 

0A45 

0387 



* 

bLE 

>AA2 

6 IF NO RUPTS WANTED 

002607 

0A46 

8070 

000 A 


AA1 

iu 

=10,<0TR0PT 



0A48 

0000 

22bF 




002606 

0A4A 

0 7 F C 




DiUF 

>AA1 


002609 

002610 

0A4o 

OF 86 



* 

b 

> AA3 

CONTINUE 

002611 

0A4C 

8070 

0000 


AA2 

iu 

= 0 * <0IRUPT 

INHIBI1 INTERkUPTS 


0 A41. 

0000 

226F 






002612 
002 o13 

0 A50 

0 7FC 



* 

biOF 

>AA2 


002o14 

0A5 1 

0380 

1 ODE 


AA3 

LNJ 

$B5 *<WREC 

WRITE RECORD 

002o16 

0A5 3 

0000 




KESV 

1*0 

DATA (INSERTED IN WREO 

002616 

0A54 

0012 




6C 

18 

BYTE RANGE 

002617 

0A5 3 

17E6 




6C 

<WBOF 

FROM,•. 

00261b 

0A56 

10C3 




DC 

<KT3 

RETRY ROUTINE (bSk/bSR/FSk/tkA) 

002619 

0A5 l 

0 A3 1 




DC 

<AA3 

RETRY LOCATION 

Oo2b2u 

0 A3 b 

1000 




DC 

<ABk3 

ABORT ROOT INt (NOP) 

002621 
002622 

0 A3 9 

0 AbF 



* 

DC 

< AB 

ABORT LOCATION (NEXT TEST) 

002623 





* CHECK wHl 

CH HODl * THtN READ AND 

CHECK DATA. 

002o2h 





* 



002623 

Oa3 A 

0380 

OFDb 



LNJ 

b 

SB5 *<RWAQ 

CHECK MODE 

002626 

0A3C 

OF 89 




>AA4 

R 

00262 I 

0A5D 

OF 92 




b 

> Ab 

W 

00262b 

0A5L 

0F7F 




NOP 

>$- 1 

A 

002629 

0A5F 

8280 

2 0 E 7 



Lb 

<AUF L * = 1 

0, CHECK IF TlST AU 


0A61 

0001 






00263U 

0A62 

0303 




bbT 

>AA4 

b IF TtSI AU 

002631 

002632 

0m63 

0380 

1426 


* 

LNJ 

$65* <bSRW 

BACK A RtCORD AND WAIT 

002633 

0A65 

0380 

10b6 


AA4 

LNJ 

$65 *<SEf 

SET UP FUR Rt aD 

002634 





* 


002633 

0 A6 7 

0380 

1186 


AA5 

LNJ 

$65 * cRREC 

READ A RECORD 

002636 

0A69 

0012 




DC 

18 

BYTE RANGE 

002637 

0A6 A 

1C66 




DC 

<KBuF 

TO HERt 

00263b 

0 A6u 

1001 




Dl 

< K T 0 

RETRY ROUTINE ( bSR/bSR/F SR ) 

002639 

0A6L 

0 A 6 7 




DC 

<AA8 

RETRY LuCATIO.m 

002 64u 

0 AoD 

1006 




Dl 

<ABk3 

ABORT KOUTINt (NOP) 

002641 

0A6L 

OA^F 




DC 

<Ab 

ABORT LOCATION (NEXT TEST) 

002642 





*~ - - 

«* mm 



002643 





x TEST 

ad* 

WRITE KECORD OF ZERO'S 

* READ AND CHECk 

002644 





* 



002643 

0 A6 F 

0380 

0FA2 


Ab 

LNJ 

$63 * <LABLL 


002646 

0A71 

A 1 4 2 




DC 

» Ab* 

LABEL 1 

002647 

OA 7 c 

0380 

1160 


AbO 

LNJ 

$65 * <ONES 

WRITE AND CHLlK RtCORD WiTh... 

00264b 

0 A 7 4 

0000 




DC 

X*00* 

DATA 

002649 

002650 

OA 7 3 

0113 



*- - - 

DC 

2 73 

BYTE RANGE (dcC) 

002631 





x TEST 

AC* 

WKlTt RECORD OF JNE • S 

IN BIT 7 OF EACH bYTE* READ AND CHECK. 

002632 





* 



002653 

OA 76 

0380 

0FA2 


AC 

LNJ 

SB5 , <LAbEL 


002654 

0A7b 

4143 




DC 

•AC* 

LAbELl 

002653 

0A7 9 

0380 

1160 


ACU 

LNJ 

$B5 * <ONES 

WRITE AND CHElK RECORD WITH... 

002656 

0a7d 

0001 




DC 

X*01 • 

DATA 

0 0 2 0 5 7 
00265b 

0A7C 

0760 



*_ 

DC 

1900 

bYTE RANGE (DlC) 

002659 





* TEST 

ad* 

WKift RECORD OF JNE»S 

In BIT 6 OF EACn BYTE . RtAD AND CHECK. 

00266U 





* 



002661 

0A7U 

0380 

OF A2 


A6 

LNJ 

SB5 *<LAdlL 


002662 

0A7F 

4 144 




DC 

•AD* 

LABEL 1 

002663 

0*bU 

6380 

1160 


ADO 

LNJ 

$B5,<ONtS 

WRITE AND CHElK RECORD wiTF.... 

002664 

OA 82 

0002 




DC 

X * 02 * 

DATA 

002663 

002666 

0Ao3 

066F 



*- - - 

DC 

172 7 

BYTE RANGE (DcO 

002667 





* TEST 

AL* 

WKlTt RtCOkD OF ONE'S 

IN blT 5 OF EACH BYTE, READ AND CHECK. 

00266b 





* 



002669 

0A84 

0380 

0FA2 


AE 

LNJ 

$B5,<LAbEL 


0U2670 

0 Abb 

4145 




DC 

' At' 

LABEL! 

002671 

0m8 l 

0380 

1160 


AEU 

LNJ 

$B5*<0NES 

WRITE AND CHElK RECORD WITH... 

002672 

0Ab9 

00 Oh 




DC 

X * 04' 

DATA 








PAGE 


29 




TITlE MT US3*•REV G’ NINE TKaCK PE/NRZI MAG TAPE T6V (SAP) 


002o73 
002674 
G02o73 
002o76 
002677 
002o7 6 
002679 
002o8Q 
002681 
002682 
002683 
00268a 
OOcbES 
002686 
002687 
002688 
002689 
002690 
002691 
002o92 
002693 
002694 
0026913 
002696 
002697 
002696 
002699 
002 700 
002701 
00270*. 
002 703 
002 704 
002703 
002 706 
00270 7 
002706 
002 709 
002710 
002711 
002712 
002/13 
002714 
002/13 
002 7 16 
002717 
002716 
002719 
002 720 
002721 
00272c 
0 0 2 7 2 3 
002724 
002723 
002 72o 
002727 
002726 
002729 
002730 
002 731 
002732 
002 7 33 
002 734 
002 733 
002736 
0 u 2 7 3 7 
00273c 
002739 
002 740 
002 741 
002742 
002/43 
002744 

002/43 
00c746 
002 747 
0 u 2 74 6 
002749 
002 7 5u 
002731 
002/52 
002 733 

002 734 
002753 
002756 
00275 7 
002 7 5 b 
002 7 59 
0 0 2 7 6 0 
002761 
002 762 
0 0 2 763 
Oo2 76 a 
OUc763 
002 766 
002 76 7 
00276c 
002769 
0027 7 U 
002 771 
002772 
002773 
002774 
002773 
002776 
002777 
002 7 7b 
002779 
002786 
002781 
002 78c 
002763 


0 A6A 

03EC 



DC 

1004 

BYTE RANGE (OtC) 




* TEST 

AF* 

WRITE RECORD OF ONE’S 

IN blT 4 OP EACH bYT£, READ AND CHECK. 

UAdb 

0360 

0FA2 

AF 

LNJ 

Sb3 * <LABLL 


0 A8D 

4146 



DC 

•AF* 

LABEL1 

0 A61 

0360 

1106 

AFU 

LNJ 

SbS,<ONtS 

WRITE AND CHECK RECORD WITH... 

0A90 

0008 



DC 

X * Oo * 

DATA 

0A91 

0063 



DC 

131 

BYTE RANGE (OtC) 




* TtST 

* 

AG* 

WRITE RECORD OF ONE’S 

IN bI 1 3 OP EACH BYTE* READ AND CHECK. 

0A92 

0360 

0FA2 

AG 

LNJ 

SB3*<LAbEL 


0 A94 

4147 



DC 

* AG’ 

LABELl 

0A93 

0360 

11 DO 

AGU 

LNJ 

SB3 * <ONLS 

WRITE AND CHECK RECORD WITH... 

0A9 7 

0010 



DC 

X* lu’ 

DATA 

0a98 

0324 



DC 

604 

BYTt RANGE (OtC) 




* TtSI 

AH * 

WRITE KtCOKO OF ONE’S 

In blT 2 OP EACH bYTE, READ AND CHECK. 

0A99 

0366 

OF A2 

AH 

LNJ 

SB3,<LAbtL 


0 A9 to 

4146 



DC 

• AH’ 

LABEL 1 

0A9C 

0380 

1100 

AHU 

LNJ 

sbb * <OlMtS 

WRITE and CHECK RtCORD WITH... 

0A9L 

0020 



OC 

X» 2U» 

DATA 

0A9F 

0 39b 



DC 

1433 

BYTE RANGE (DlC) 




* IEST 

Ai* 

WRITE RECORD OF ONE’S 

IN BIT 1 OP EACH BYTE. READ AND CHECK. 

0 AAU 

0380 

OF A2 

A1 

LNJ 

SBS * <LABLL 


0AA2 

4149 



OC 

»AI • 

LABEL! 

0AA3 

0360 

11 DO 

AIU 

LNJ 

Sb5*<0NES 

WRITE AND CHECK RECORD WITH... 

0 Aa3 

0040 



DC 

X ’ 40 * 

DATA 

0AA6 

0136 



OC 

312 

BYTE RANGE (D©C) 




* TEST 

AJ, 

WRITE RECORD OF ONE’S 

In BIT 0 OP EACH BYTE, READ AND CHECK. 

Oaa 7 

0360 

0FA2 

AJ 

LNJ 

SB3 *<LABEL 


0AA9 

4 1 4A 



OC 

* AJ’ 

LABtLl 

OAaa 

03b0 

1 IDO 

AJU 

LNJ 

sB5*<0NES 

WRITE AND CHECK RECORD WITH... 

6AAC 

0080 



OC 

X * 80 ’ 

DATA 

OAAu 

0010 



OC 

29 

BYTE RANGE (OtC) 




* TEST 

Ak* 

WRITE RECORD OF ONE’S, 

READ AND CHECK. 

OAAL 

0380 

OF A2 

Ak 

LNJ 

SbS * <LABEL 


OABO 

414b 



DC 

• AK » 

LABELl 

0 Ab I 

U360 

11 DO 

AkU 

LNJ 

SBS,<ONLS 

WRITE AND CHECK RECORD WITH... 

6 Ab3 

OOFF 



DC 

X ’ F F * 

DATA 

0 Ab4 

U7AF 



OC 

1967 

BYTE RANGE (OtC) 




* TEST 

AL* 

WRITE KtCORO WITH CHECKER-BOARD PATTEkN* kEaD AND CHECK. 

0 Ab3 

0360 

Op A2 

AL 

LNJ 

SbS *<LAbtL 


OAb 7 

414c 



OC 

• AL • 

LABELl 

0 Abb 

0360 

11 DO 

ALU 

LNJ 

SbS * <ONES 

WRITE AND CHECK RECORD WITH... 

0 AbA 

U0A9 



DC 

X’A9» 

DATA 

0 Abb 

6196 


— — 

DC 

408 

BYTE RANGE (OtC) 




* TEST 

ft 

AM, 

WRITE KtCORO WITH CHECKER-BOARD PATTERN* READ AN0 CHECK. 

0 Ado 

0360 

0FA2 

AM 

LNJ 

Sb3,<LABEL 


OAbt 

4140 



OC 

•AM* 

LABELl 

0 AbP 

0380 

UDO 

AMU 

LNJ 

Sb3*<0NES 

WRITE AND CHECK RECORD WITH... 

0 AC 1 

0036 



OC 

X ’ So ’ 

DATA 

0 AC2 

003C 



OC 

92 

BYTE kANGE (OtC) 




*~TEST 

AN* 

wkIte random length record* random data* hEad* check 

0 AC3 

0360 

0FA2 

AN 

LNJ 

SbS , <LAbEL 


0 AC3 

414E 



OC 

• AN* 

LABEL! 

GaCo 

0380 

1202 

ANU 

LNJ 

SB5,<RLO 

WRITE AND CHECK RECORD WITH RANDOM bA 

OACb 

8280 

2UL7 


Lb 

<AUFL*=1 


0 ACA 

0001 






OACb 

0363 



bbF 

>A0 

B IF NOT IN TtST Au 

OaCC 

0360 

Ob9b 


LNJ 

SB3 * <AU6 

RETURN TO TES) AU 




*~test 

£ 

AO* 

KlPEAT TEST AN WITH NtW range and data 

0 ACt 

0360 

0FA2 

AO 

LNJ 

*b3,<LAbEL 


OADO 

414F 



OC 

• AO* 

LABELl 

0 AO 1 

0380 

1202 

AOU 

LNJ 

St33 ,<RLO 

WKITE, CHECK kECORD WITH RANDOM DATA 

OAOj 

8260 

20E7 


Lb 

<AUFL,=1 


0 A03 

0001 






0A06 

0363 



bbF 

>APbRS 

B IF NOT IN (cST Ay 

0 AO 7 

0360 

Ub9b 


LNJ 

Sb3*<AU6 

RETURN TO TEST AU 


* TESTS AH, 

* 


AO* AN* AS# 00 AO 6 AN 


0a09 

9C60 

0000 

X 

APOKS 

LDb 

Sbl*<ZVSHR 

6 Abb 

ABCO 

2000 

P 


Lab 

SB2,ZHC0MM+8192 

0 ADD 

9DD2 




CMb 

SB 1 * -$B2 

0 A 01 

0300 

6 AE9 



BG 

<APuKSA 





* 

OP FOR 

STANjaKD BUFFERS 

OALU 

9B80 

1C66 



LAb 

SB1*<KBUP 

0AE2 

9F80 

OBlC 



STB 

Sbl*<AQC 

0AE4 

9b8G 

17E6 



LAb 

SB 1 * <WBuF 

UAE6 

9F80 

0B36 



STB 

SB 1, <ARC 

0 Ato 

OFbD 




b 

> AP 





5 SET 

UP FOR 

KANDuM buffers 


0 AE9 

9BC 1 

Fb60 

APGRSA 

EAb 

sbi,sbi.-i is; 

OAtb 

9 F 60 

2 1 8 A 


ST to 

SB 1 * <MXAD 

OAtO 

0380 

OFF/ 


LNJ 

SbS,<GRNAOR 

OAtF 

9 F 80 

Obic 


STB 

Sbl*<AQC 

OAF 1 

0360 

OFF 7 


LNJ 

SB3 ,<GRNAOK 

OAF 3 

9F80 

0B36 

* _ ^ 

STto 

SB 1 * <ARC 




* rtsT 

AP* 

WRITE RECORD OF 

OaF 3 

0360 

0FA2 

AP 

LNJ 

SbS,<LAbEL 


PROM KANU bUPrEKS ONLY IP O.T. 8K# 
GET HmA IN Bl 

B IP RANO bUPo TO BE USED (GT 8K) 


STANDARD HEAD BOPPER 

STANDARD WRITu buffer 
START I EST AP 


ROOM AI IOP FuR 2K BYTES PLUS OVPL 

GET RANDOM AluRESS IN bl 
RANDOM RtAD BUFFER 
GET RANDOM ADoRESS IN Bl 
RANDOM WRITE ©UPPER 


DATA FRUM "WBUP”# 















TITLE M T 0 b 3 * * 

RtV G' 

1 NINE 

TRACK PL/NKZI 

MAG TAPE 76V (SAF) 

002 784 

OAF 7 

41 bO 



DC 

* AP • 

002 iBb 

OAF 8 

b28u 

2017 

APU 

Lb 

<AUFL*=U 


OAFm 

0001 





0027 Bo 

0 AFb 

05 8‘3 



bbF 

> APm 

002 78 7 
00278b 

0 AFC 

9680 

1C66 

* 

LAb 

sbl*<RBUF 

Ou2789 
002790 

OAFc 

9F80 

ublC 

* 

STB 

SB 1 * < AQC 

00279! 

OpOO 

D38G 

1 ODE 

APA 

LNJ 

Sbb«< WRLC 

002792 

ObOc 

5244 



DC 

»RD' 

002 793 

0b03 

0400 



DC 

1024 

002 79A 

GbO*t 

17 E 6 



DC 

<W6uF 

00279b 

0b05 

10C3 



DC 

<RT 5 

Ou 2 79o 

0b06 

0600 



DC 

< APA 

002 797 

ObO 7 

10DD 



DC 

<ABk3 

00279b 
002799 

0b08 

062 7 


* 

DC 

<AR 

002800 




* CHECK for 

MODE 

002801 
0U2 b02 

0b09 

D38u 

0FD6 

* 

LNJ 

SB5 * <RWAO 

002b03 

UbOD 

OF 89 



b 

>AQ 

002o04 

ObuC 

OF 9b 



b 

> AR 

002605 

ObOu 

OF 7F 



NOP 

>$-i 

Ou^oOb 

ObOL 

8280 

20E7 


Lb 

<AUF L * = 1 


OblO 

0001 





0 0 2 8 0 7 

Obi i 

0506 



bo I 

> AOA 

002b0b 

002b09 

Ob! 2 

D380 

142b 

*- - . 

LNJ 

$B5 * <bSRW 


002olu 
00 2811 
002o 12 
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LABEL! 

B IF NUT IN TlST Ay 

USE standard kbuf if JEST AU 

WRITE RECORD 
RANDOM DATA 
BYTL RANGE 
BUFFER ADDRESo 

RETRY ROUTINE (BSR/BSR/FSR/ERA) 
RETRY LOCATION 
ABORT ROUTINE (NOP) 

ABORT LOCATION (SKIP NEXT TtST) 


MODE? 

R* GO ON AND DO READ 
W, SKIP NEXT rcEAD 
A 

Of LHELk IF In TEST AU 

B IF IN IEST AU 
BACK A RECORD 


RemD PkEVIUUS RECORD INTO KANuUM BUFFER ANp CHECK. 
USE STANDARD BUFFER LOCATiON IF IN TEST AU. 


002813 

Obln 

D380 

OF A2 

AU 

LNJ 

SB5 *<LABEL 


002614 

Ob 16 

4151 



DC 

»AQ* 

LABEL 1 

002 b 15 




* 




002816 

Obi 7 

D380 

1006 

AGA 

LNJ 

SB5 *< SET 

SET UP FOR READ 

UU2b 17 

0bl9 

D380 

118D 

AGO 

LNj 

Sb5 * <KREC 

READ A NEC 

002616 

Obib 

0400 



DC 

1024 

BYTE RANGE 

002619 

OolC 

0000 


AGC 

RtSV 

SAF *0 

BUFFER ADDRESS 

U02o20 

Od 1 D 

1 OD 1 



DC 

<RTo 

RETRY ROUTINE (BSK/bSR/FSR) 

002o2i 

Ob 1L 

0019 



DC 

< AQu 

RETRY LOCATION 

U02b2c 

Obi F 

10DD 



DC 

<AbK3 

ABORT ROUTINE (NOP) 

0U2623 

0b20 

0021 



DC 

< AGD 

AbORT LOCATION (ENp OF TEST) 

002 b 2 h 




* 




00co2b 

Gb2i 

6280 

20E7 

AGD 

Lb 

<AUF L * = 1 



Ob2 3 

0001 






002626 

0bc4 

0583 



bbF 

> AR 

B IF NOT TEST AU 

002b27 

0B2 5 

D380 

0090 


LnJ 

S65 * <AUb 

RETURN TU TESl AU 

0Q2b2b 




* - 

— «. 



002o29 




* TEST 

AK , 

WRITE KLCOKD OF RANDOM DATA FKUM RANDuM LOCATION. 

00263U 




* USE » 

• WbUF 

" IF ONLY 8K. 


002 6 3 i 




* 




002 o 3<c 

Ob2 7 

D380 

0FA2 

AR 

LNJ 

SB5,<LAbEL 


U02b33 

0B2 9 

4152 



DC 

• AK' 

LABEL 1 

002634 

0B2 A 

8280 

20L7 

ARU 

Lb 

<AUF L * = I 



Ob2C 

00U1 






002835 

0b2D 

0585 



bbF 

>ARA 

B IF NUT AU 

002836 

Ob21 

9080 

1 7E6 


LAb 

SBi* <WbUF 


002637 

0b30 

9F80 

0b36 


STB 

SB 1 * <ARC 

USE STANDARD uUFFEr 

002638 




* 




002b39 

0b3^ 

D360 

1 ODE 

ARA 

LNJ 

Sb5 * <wREC 

WRITE 

002 64 0 

Obb'f 

5244 



DC 

•RD» 

rand data 

002641 

Ob35 

0400 



DC 

1024 

BYTE RANGE 

00<-b44 

0b36 

0000 


ARC 

RtSV 

SAF ,U 

BUFFER ADDRESS 

00cb43 

0b37 

10C3 



DC 

<KT 3 

RETRY ROUTINE (bSR/bSR/FSR/ERA) 

002b44 

0B38 

0B32 



DC 

<AKm 

RETRY LOCATION 

Q02b45 

0b39 

1 ODD 



DC 

<ABK3 

AbORT ROUTINE (NOP) 

002846 

Ob3 A 

0B54 



DC 

< ASC 

ABORT LOCATION (SKIP NEXl TtST) 

002o47 




* 




002646 




* CHECK FOR 

HudE 


002649 




* 




002650 

Ob3b 

D380 

OFDb 


LNJ 

Sb5 * <KWAG 

MODt? 

002651 

Ob3D 

OF 6A 



6 

> AS 

R, CONIINUt WITH Read 

00285^ 

0d3E 

OF 96 



b 

> Abu 

W, SKIP IHt KtAD 

002653 

Od3 F 

OF 7F 



NOP 

> S- 1 

A 

002654 

Ob4U 

8280 

20E7 


Lb 

<AUFL*=1 

Q* CHECK IF IN TESj AU 


Ob42 

0001 






002655 

Obnb 

0500 

Ob4A 


BBT 

< ASA 

B IF AU (DON * I CHANGE LABEL! = ”Au”) 

002656 

Ob46 

D360 

1420 


LNJ 

SB5 * <BSRW 

BACKSPACE FOR THE FOLLOWING READ 

00265 7 




#- - - 

— — 



00C656 




* TEST 

AS* 

KLAD PREVIOUS RECORD 

INTO "kBUF” AND CHECK DATA. 

002659 




* 




002 o6u 

0b4 7 

D380 

OF A2 

AS 

LNJ 

SB5 * <LAbEL 


OOcab 1 

0b49 

4153 



DC 

•AS' 

LABEL! ' * 

002662 

0B4A 

D380 

1066 

ASA 

LNJ 

SB5 * <SET 

SET UP FUR RtaD 

002b63 

Qb4C 

D38G 

U8D 

ASO 

LNJ 

SB5,<KREC 

READ 

002664 

Ob4L 

0400 



DC 

1024 

BYTE RANGE 

002665 

0B4F 

1 C6b 



DC 

<RBuF 

BUF ADR 

002666 

0b50 

10D1 



DC 

<R T 6 

RETRY ROUTINE (bSK/BSR/FSK) 

002667 

0B5 1 

0B4C 



DC 

< ASb 

RETRY LOCATION 

002666 

0052 

10DD 



DC 

< ABK3 

AbORT ROUTINE (NOP) 

002869 

0053 

0054 



DC 

< ASC 

ABORT LOCATION 

002870 




* 




002671 

Ob54 

8280 

20E7 

ASC 

Lb 

<AUF L * ~ 1 



0B56 

0001 






002672 

Ob5 7 

0583 



bbF 

>AT 

B IF NUT TEST AU 

002673 

Ou5b 

D380 

0096 


LNJ 

SB5 * <AU6 

RETURN TU TEST AU 

002674 





» — 



002675 




* WRITE (OK 

SPACE) FILE MARC AT 

END OF DAI A FILE 

002676 




* 




002677 

Ob5A 

D380 

OF A2 

AT 

LNJ 

SB5,<LABEL 


00267b 

Ob5C 

4154 



DC 

•AT • 

LABEL! 

002o79 

Ob5D 

D380 

OFDb 


LNJ 

SB5 «<RWAG 

MODE? 

002680 

005 F 

OF 8 6 



b 

> AT A 

K* READ FM 6 SKIP AU TtSI 

002881 

Obou 

OF 8 5 



b 

>AT a 

W, WRI1E FM 6 SKIP AU TEST 

002882 

0d 6 i 

0F7F 



NOP 

>$• 1 

A WKlTt FM, TrtEN Do AU TtST 

002883 

0062 

0380 

1 3 1A 


LNJ 

S B 5 * < W F M 

U* DIT10 

002884 

0B64 

OF 85 



b 

>AU 

A/a, CONTINUE WITH RANDOM SttK TEST 

002885 




* 




002886 

0065 

D38U 

13 1A 

ATA 

LNJ 

$B5 *<WFM 

R/W* WRITE (READ) FILE MARK 

00288 7 

0Bo7 

0F60 

0BB1 


b 

< AU 7 

GO TO END OF TEST AU 

002888 




*- - - 

- * 



002889 




* TEST 

AU* 

ARBITRARILY SKIP AROUND WITHIN FILE 6 CHECK DATA 








TITlE MT0S3,»kEV u' 

NIN E 

TRACK PE/NRZI 

Ft AO TAPl T6V (SAP) 

PAOb 31 

0 U 2 b 9 L 

0069 

6380 

OF A2 

AU 

LNJ 

*B3,<LAbEL 


00cb94 

0b6o 

4133 



6C 

• AU 1 

LABtLi 

0U2i*9 J 

OboC 

6380 

1 3F5 


LNJ 

SB3,<bSFW 

BACK A FILL 

0026 9*+ 

0066 

l>380 

13F3 


LNJ 

3>bS »<BSF W 

DITTO 

002693 

Ob 70 

0380 

139b 


LNJ 

Sb3, <P SFbOl 

FORWARD A F1 Lc * PAST LOT IF NECESSARY 

002696 




* 




002697 

Ob 7 c 

8900 

2 Ob 7 


LBT 

<AUF L + = 1 

SET AO TEST FuAG 


U b 7 4 

0001 






002696 





CALL 

/_V3>PK,RANDOM, JC8 

GET SOME RANDuM NUMBERS 


0b7 3 

FbCO 

0003 






Ob7 t 

6380 

0000 

A 





Ob 79 

OF80 







ub 7 A 

2193 







Ub7b 

20F 1 






002b99 




* 




00290U 




* NOW 

bblbKMINL HOW TO BtT 16 RANDuM RECORD NUMElRS (R5 = AU CNTR) 

002901 




* 




002902 

0 b 7 L 

1CF 6 



LOV 

SRI »s-8 


002903 

Ob 7 b 

9 F 00 

20bB 


SfR 

SRI i <CNl8 

CNTR FOR 8 SPmCEINg OPERATIONS 

002909 

06 ?P 

A680 

2193 


L Ab 

3>62 , <K AN60M 

PNTR to KANDOri TABLE 

002903 

0D6 1 

0872 


AU1 

L6k 

SR5 , +SB2 

GET A NMBR, buMP FOR NEX1 ONE 

00290b 

0b6C 

0370 

OOOF 


aNO 

j>K3 ,=X • F • 

TkUNCAIE TO DlCIMAl 15 

00290 t 

0b84 

8A05 



INC 

= $R3 

MAKE i 1 BETwEi_N 1-16 DEC 

002906 

0b63 

o2 30 

210b 


SOB 

SR3*<6XRN«SR3 

DIFFERENCE FKuM CURRENT POSITION 

002909 

0b6 l 

3680 

068b 


oObC 

iR3,<AU3 

B IF NECtSSAKY TO FORWARD SPACE 

002 9 1 0 




* 




002911 




* IT 

IS NbCLSSAKY TO BACKSPACE TO 

get there 

00<£9 1 c 




* 




00^916 

U669 

0360 

142b 

AU2 

LNJ 

SB3,<bSRW 

BACKSPACE A RECORD 

002919 

0 D 6 b 

57F b 



biNC 

SR3,>AU2 

bACK SUMb MORc 

009913 

0 D 6 L 

uF80 

0694 


D 

< AU3 

WL•Vb ARRIVED 

002916 




* 




00291 J 




* IT*5 NtCESjAKY 10 FORWARD SPACE 

TO GET 1 HERE 

002916 




* 




002919 

0681 

8233 


AU3 

NtG 

= $R3 

MAKE 11 NEGATIVE 

002920 

Ob8F 

3900 

0694 


DbZ 

SR3,<AU5 

TAPE ALREADY iN POSITION 

002921 

0691 

0380 

13C1 

AU4 

LNJ 

Sb3i< FSR w 

FORwARO SPACE A RECORD 

002922 

069 3 

5 7 F b 



bINC 

SK5i>AU4 

FORWARD SPACE SOME MORE 

002923 




* 




002929 




* wL» 

VE ARRIVED* PREPARE 10 RECONSTRUCT OAT A ANO READ IT. 

002923 




* 




002926 

0694 

9680 

2333 

AU3 

LAB 

Sbl 9 <LI ST 

LIST OF POSSIuLE Ay TbSIS 

002927 

0696 

9830 

2 1 Ob 


L6R 

SRI i<6XRN.$R3 

CURKENI KECUku NMbR 

002926 

0b9b 

8801 



6lC 

= SR 1 

("LIST” START o WITH SECOND RECORD) 

002929 

0699 

bC91 



LOb 

$B3,$bl.SRI 

FORM ADDRESS 10 TEST 

002930 

069 A 

8383 



JMP 

SB3 

DO THE TEST 

002931 




x — - 




0 0 2 9 3 




* aMER 061 NO 

THE RbAO PORTION OF 

TEST, RETURN HlRE And CHtCK MODE 

002933 




* 




002939 

0d9d 

OF 80 

06A6 

AU6 

STB 

Sbb ,<AU6b5 

SAVE POSSIBLE RETURN ADDRESS 

002933 

0b9D 

0380 

OFDb 


LNJ 

SB3 9 <K WAU 

MODE? 

002936 

0b9P 

0 F 7 F 



NOP 

>S-i 

R 9 NO AU TEST, RETURN 

002937 

ObAO 

OF 8 3 



b 

> AUbA 

W, 61110 

002936 

ObMi 

OF 7F 



NOP 

>$-l 

A, CONIINUL W/NEXT REC OF AU TEST 

002939 

06A2 

OF 8 3 



b 

>AU6C 

Q , 6 11 l 0 

002990 




* 




002941 

0BA3 

0C80 

ObAb 

AU6A 

LDb 

Sb5 *<AU6b3 

K/W* SET UP FuR RETURN 

00294c 

ObA3 

8383 



jf’iP 

Sb3 

RETURN TO TESf "A” IN LINE 

002943 

ObAb 

0000 


AU6B5 

KESV 

SAF * 0 

RETURN ADDRESS 

002944 




* 




002943 

OBA 7 

8 A80 

20bb 

AUfcC 

INC 

<CN | d 

A/0, bUMP CNTr\ FOR 8 RECORDS 

002946 

ObA9 

6980 

20Eb 


CM2 

<CN 1 6 

CHECK CNIR 

002947 

ObAb 

0800 

Ob8i 


bAL 

< AU 1 

LOOP BACK FUR NEXT RECORD 

00c94o 

ObAu 

8 700 

2 Ob 7 


CL 

< AUFL 

RESET AU FLAG, TEST AU DUNE 

002949 

OBAP 

0380 

139L 


LNJ 

ib3 » <F SF LOT 

GO AHlAO for *ext file 

0029 50 




*- - 

— - — — - 



00295i 




* AU 

TEST DONE, CHECK FOR b-O-T OR END-PASS 

00295c 




* 




002953 

Obbi 

8800 

2112 

AU7 

LuF 

<LOIPLG«=1 

CHECK AND CLEaR EOt FLAu 


0bO3 

0001 






002954 

Obb4 

0300 

Ub64 


boT 

cNDPS 

b IF EUT 9 REPuRT END OF 6ASS 

002953 

Obbb 

0380 

OF 6b 


LNJ 

Sbb 9 < K W A U 

modl? 

00295b 

Qbb8 

0 F 7 F 



NOP 

> S- 1 

K, COMPARE H FiLES” 

002957 

Obb9 

0F7F 



NuP 

>S-1 

W, Dll 10 

002956 

ubbA 

OF 8 8 



b 

>AU8 

A, D1T10 

002959 




* 




002960 

Obbb 

9830 

20FE 


LOR 

SRI*<DXFN.SK3 

Q * CHECK FOR i6 FILES 

002961 

Obbb 

1611 



CMV 

SRU = 1 7 

16 FILES = 17 FILE MARKS 

002962 

ObbE 

0900 

0b64 


bb 

<NOPS 

REPORT END OF PASS 

002963 

oboo 

OF 60 

06C6 


b 

<A09 

NUT 16 FILES YET* CONTINUE 

002964 




* 




002963 

obCc 

6980 

217F 

AU8 

CM2 

<f ills 


002966 

ObC4 

0900 

ObCb 


bt 

< AU9 - 

B IF NO LIMIT, GO TO EOT 

0 U 2 9 6 7 

ObCo 

9830 

20F E 


LOR 

SR 11<6XF N•SR3 

GET FILE COUNI 

002966 

ObCti 

8861 



6t.C 

= SR 1 


002969 

0fcC9 

9900 

217F 


CMk 

$R1,<FIlES 

"FIlES" REACHED? 

002970 

ObCb 

0280 

0664 


bob 

<N6PS 

b IF PASS 

002971 




* 




00297c 

ObCb 

9C60 

2 10A 

AU9 

L6B 

SB1 i <6XPT•$R3 


002973 

ObCP 

9bC 1 

FFFF 


LAb 

Sbl,Sbl.-SAF 

NEXT TIMt AROUND* REPEAT AA-AT * AU 

002974 

Obbi 

9PB0 

2 IOA 


STB 

sbl,<6XPT,$R3 


002973 

0663 

8386 



JMP 

Sb6 

RETURN TO HANDLER 

002976 




*- - 




002977 




* REPORT ENO-OF-PaSS MESSAGt 


00297b 




* 




002979 




* FIRST wKITt 

LN6-PASS RECORD ON 

TAPE 

002980 




* 




U0c981 

0664 

6380 

OF A2 

N6PS 

LNJ 

$B5 * <LABEL 


002982 

0666 

4550 


bp 

6C 

»EP» 

LABEL 1 

002983 




* 




002984 

0667 

8070 

0 000 

bP4 

IU 

= 0 * <0 TRuPT 

INH1BI1 INTERRUPTS 


0b69 

0000 

22bF 





002985 

ObDb 

07 F c 



blOF 

>LP4 


002986 




* 




002987 

0660 

6380 

OFDB 


LNJ 

Sbb » <k WAQ 

MODE? 

002986 

ObDE 

OF 87 



b 

>LP 1 

R, NO WRITING 

002989 

0B6F 

0 F 7 F 



NOP 

>S-1 

W 

002990 

Qbto 

OF 7F 



NOP 

>S- 1 

A 

002991 




* 




00299c 

Obbi 

6380 

1160 


LNJ 

$bb,<ONES 

Q 9 wRlIE RECOkD 

002993 

Obbi 

OOFF 



oc 

X • F F • 

DATA 

002994 

Obb4 

0014 



oc 

20 

BYTE KANGE 

002993 




* 










TITLE MTU53 9 * REV G» 


NINE TRACK PE/NRZI MAG TAPE T6V (SAP) 
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002996 

002997 

002998 

OBtb 
Obt 7 
0BE9 
OBEa 

002999 

ObLB 

003000 

003001 

00300c 

003003 

OBEO 

003004 

ObEP 
ObP 1 
ObP 3 
0BF4 

003005 

OBP 8 

OObuOb 
00300 / 

ObP 7 


0BF9 

ObPb 


ObP u 
OBP L 

003008 

003009 

003U10 

003011 

ObP P 

003012 

0C01 

0C03 

0CG3 

0C06 

003013 

OCo 7 
0C09 
OCOd 
OCOC 

003014 

003015 

003016 

003017 

OCOo 

003016 

OCOP 

003019 

003020 

OLIO 


oClc 
OC14 
OC16 
0C1 1 

003021 

OC 18 
OC 1A 
OC IL 
0C1D 

003022 

003023 

out 

003024 

0C20 


003025 

003026 

003027 


FBCO 0U03 
0380 OOOG 
OP 80 
2 2bF 

9830 2102 
0380 OPCb 


PECO 0003 
0380 0000 
OP 80 
227 7 

9830 2106 
9P00 21B7 

PBCO 0003 
0380 0000 
OP 80 
21B7 


0380 145P 

PBCO 0003 
0380 0000 
OP 80 
2113 

PBCO 0003 
0380 0000 
0F80 
2239 


9830 2OPE 
8801 

9P00 21B7 

PBCO 0003 
0380 0000 
OP 80 
21B7 

PBCO 0003 
0380 0000 
OF 80 
223P 

0380 1628 
8700 2112 



003026 

0C22 

8000 

2299 


10 

<KbwIN0,<0TTA5K 

REWIND 


0C24 

0000 

22C2 





003029 

0C2 6 

0704 



BIOT 

>EP2 


003030 

0027 

0380 

1030 


LNJ 

*B5,<PNtk 

5HOOLO HAVE BtEN READY FOR RtWlND 

003031 

0C29 

313 7 


FNER17 

OC 

•17* 

LABEL2 

003032 




* 




003033 

002 A 

6730 

20P t 

tP2 

CL 

<OXPN.4»R3 

REbET PILE COUNT 

003034 

0C2o 

6730 

210E 


CL 

<DXKN # $R3 

REbET RECORD oOoNT 

003o35 

0C2t 

8 ABO 

2106 


INC 

<0XPb.$R3 

INCREMENT PAbb COUNT 

00303o 

0C3O 

0380 

OFDb 


LNJ 

$65♦<RWAO 

MOOES? 

0 0 3 0 3 7 

0C32 

8386 



JhP 

3>b6 

K, RETURN TO riANOLtR 

003036 

0C3 3 

OF 8 3 



D 

>EPj 

W9 OANCtL MGDl "W", ONE PAbb ONLY 

003039 

0C34 

8386 



JHP 

$B6 

A, RETURN TO mANDLer 

003040 

0C33 

8386 



JMP 

$B6 

Q9 onto 

003041 




* 




00304c 

003o 

9870 

2030 

EP3 

LOR 

$R19 = 1 -0 * 

GET "NULL” \AOut 

00 3043 

0C3d 

9A53 



ADO 

$R 1 9= 3>R3 

MODIFY TO CURRENT UNIT 

003044 

0C39 

9P30 

2102 


STR 

SKI»<0XM0.$R3 

CANCEL MODE "aN" 

003043 

0C3b 

6366 



JMP 

$B6 

RETURN TO HANDLER 


00304o ************************************************************************ 

00304 1 * 

003046 * NEXT POLLOwS THc. OEbUG MODE 

003049 * 

0030 50 ************************************************************************* 


TITLE MT053 9 * REV G* 


NINE TRACK PE/NRZI MAG TAPE T6V (SAF) 
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003051 

003052 

003U53 

003054 

003055 

003056 

003057 

00305b 

003059 

0U306U 

003061 

O03u6c 

0G3O63 

003064 

003u65 

00306o 

003067 

00306o 

003069 

00307u 

003071 

003072 

0U3073 

0u3u74 

003075 

0 0 3 0 7 o 
003077 
00307b 
003079 

003060 

003081 

00308c 

003083 


0C3C 

0C3t 

0C40 

0C42 

0C43 

UC45 

0C47 

0C46 

0C4A 

0C4C 

0C4E 


0L4F 
0C5 1 


0C52 
0C34 
0C5 6 
UC5o 
0C5 A 
0C5C 


0C5t 

OC60 

0C61 


8070 0000 
0000 22BF 
0380 0FA2 
44 3 1 

bfaOO 20EA 
9870 2030 
9 A53 

9F30 2102 

8000 22A9 
0000 22BL) 
07FC 


9800 20F5 
1047 


8000 22B3 
0000 22BL 
8010 22 AC 
0000 22dE 
8000 22AA 
0000 22BE 


8280 20t9 
0001 

05b0 OC79 


003095 

0U3U96 

00309 7 

00309o 

003O99 

00310U 


0C7D 
OC/F 
0C81 
0C8 3 
0C8 5 
0C8 7 


8070 

0000 

8070 

0000 

a070 

0000 


a883 
22bE 
20F4 
22BE 
7U6 A 
22BE 


003104 
003l05 
003106 
003107 
003 1 Ob 
003109 
Ou3 1 10 


003111 
0031U 
Ou3113 


OC93 0000 22bE 


0C95 
0C9 7 
0C99 

0C9D 

0C90 

0C9F 

OCAO 


9830 201-6 
9F00 20F5 
0360 1341 

FbCO 0003 
0360 0000 
OF 60 
226A 


003121 
00312c 
Ou3123 
0U3124 
003 i 2 5 
00312a 
0 u 3 12 7 
00312a 
003129 
003130 

003131 

003132 

003133 

003134 


GCAb 
OCAF 
OCdi 
0Lb2 
0CB3 
0CB4 
OCBa 
0 Cd7 
0069 
OCub 
OCbO 
OCbF 
0CC1 
0CC3 
0CC8 
OCC 7 


U380 
OF 80 
2 lb7 
20ED 


0003 

0000 


* DEBUG MUDt. PRIOR TO CONFIGURING CURKENI CHAnNcL ADDRESS* MAKE 

* SURE THAT THE INTERRUPTED UNIT lb INITIALIZED aNO In NORMAL MODE. 


MOuED 

D1 


IU 

LNJ 

DC 

LDK 

LDR 

ADD 

STR 


= 0 » <OTRuPl 

bB5 9 <LABEL 

»U1» 

SR3 9 <b1TE 
4>R1 , = '-0* 
bRl »-3)R3 
$R1 9 <DXMD. $R3 

<NOKMAL«<0TCONF 

>MODtDA 


INHIBII I NT ERaUPT b 

bET MAJOR ERRuR LA b EL (bEE "SENSE") 

LABEL 1 
GET INDEX 

ADD INDEX VALUE 
CLEAR CURRENT MODE 

RESET CONFIGURATION ON INTERROPlED DRIVE 


MODEDA lu 

bluF 

* 

* CLEAR UP ANY SCREWY C0ND1U0N THAT MAY EXIST In PREVIOUS DRIVE. 


LDR 

bUR 


SR 1 * <DR 1VE 
$R 1,7 


x SET UP TEST MODl 

* 


10 

<TESTMD9<0TC0NT 

(SET 

TtSI MUDt) 

10 

<LCHN0.SR19<0TC0nT 

(0U1PUI LOGIC. CHAn NMBR) 

10 

<lN0tX9<0TC0M 

(SET 

INDEX MOuE) 


* INITIALIZE OLD CHANNEL. Ib DIFFERENT FOR BDC2 AND BDC3. 

Lb <BDCFLG9=1 

BbF <MOuEDB B IF BDC2 FIRMWARE 

* 

* bDC3 FIRMWAKL9 INITIALIZE ADAPTER AND DRU 


003U84 

0C63 

8070 

9C03 


10 

= Z*9C03* 9<0TCJNT 

(ECN AAD4 CNSI(03#)) 

003065 

0Co5 

0000 

22bE 




OCa 7 

6070 

8683 


io 

=Z»86b3« 9<0TCJNT 

(ACCESS (FWCI)) 


0Co9 

0000 

22bE 




Ou3u8b 

0C6b 

8070 

0008 


lu 

= Z«U008* 9<OTCONT 

(RESET DtVICE ADAPTER) 

003087 

0C6D 

0000 

22BE 




OCaF 

6070 

20B4 


10 

-Z'20B4 *9<0TCJNT 

(AC13) 


OC 7 1 

0000 

22bE 




0u3086 

0C73 

8070 

7D6A 


10 

= Z* f D6A•9<0TCJNT 

( (FwCI) 10 ADAPTER) 


OC 7 5 

0000 

22bt 




003089 

00309U 

0C7 7 

OF 80 

0C89 

* 

b 

<MOdEDE 

INITIALIZE Ib DONE 

003091 




* 



003U9C 




* bDC2 

F1RMWARE 9 INIT1AEIZE. 


003093 




* 




003094 

OL 79 

8070 

0006 

MODEDb 

10 

=Z»0008» 9<0TCJNT 

(RESET DEVlCt ADAPTER) 


DC 7b 

0000 

226E 





10 = Z * a663•9<0 TCjNT 
10 =Z»cOF4»9<OTCONT 
10 =Z*7D6A*9<0TCJNT 


(ACCESS (FwCI)) 
(AC123) 

( (FWCI) TO ADAPTER) 


* CLEAR TEST MODE 


003101 

0C69 

6000 

22B1 

MODEDE 10 

<SCrDY9<0IC0N1 

(SET CHAN RDY) 

00310c 

OCbb 

0000 

2 2 BE 



OCaD 

a 000 

22b4 

10 

<WA 1 T LP 9 <0 TCONT 

(b TO WAIT LOuP) 


0C8F 

0000 

22bE 



003103 

0C91 

6000 

2260 

10 

<NO TEST 9 <0TCUNT 

(EXIT IEST MOuE) 


* 

* 

* 

LDR 

SIR 

LNu 

MODELS CALL 


$R19<DRIVE0.SR3 

*R1,<DRIVE 

$b5 9<SET CHN 

CVS I .ZV$0C9MSPARA 


SET DRIVE ADR 

SET UP CHANNEL ADDRESSES 

(ASK FUR RANGc9 DATA) 


* RANGE ( 1-600 HEX BYTES MAX) 9 DATA PATTERN (QO-FF HEX) 


003114 

OCA 1 

8800 

2 19F 

LbF 

<RNGFLG9=1 

TEST OLD FLAG 


0CA3 

0001 





003115 

0CA4 

0563 


bbF 

>MODtDK 


00311a 

0CA5 

a 700 

219E 

CL 

<RNu 


0 u 3117 

OCA I 

E 600 

219E 

MODEDK LDR 

SR6 9 <RNG 

GET OLD RANGE FOR DEFAULT 

003116 

0CA9 

F 600 

2190 

LDR 

SR 7,<PTRN 

GET OLD PATTERN FOR DEFAULT 

Ou3 119 

OCAo 

6DOO 

2107 

SDi 

<TEMPA 

TRANSFtR BOTH TO TEMPA 9 T EMPB 

00312U 




CALL 

ZV$ih9TEMPA9DC2 



8C80 

6965 

21b7 

LD1 

BNEZ 

<TEMPA 
iK 6 9>M0DEDL 

GET BACK INTO R 69 R7 
b IF RANGE NOT "ZER 

E870 

0800 

LDR 

$R6 9 = X•800 * 

DEFAUE1 TO »buO 

8 A80 

219F 

INC 

<RNuFLG 

SET FLAG9 RANvjE IS "ZERO' 

6600 

E970 

0C9B 

0800 

MODEDL BLZ 
CMR 

SR69<M0DLDJ 

SR69=X'600» 

B IF RANGE TOu SMALL 

OAOO 

0C9B 

BAG 

<MOdEDJ 

start uvlr 

EFOO 

^ 19E 

STR 

&R6 9 <RNG 

SAVE NEW (OLD) RANGE 

FFOO 

2190 

STR 

$R7,<PTRN 

SAVE NtW (OLD) DATA PATTI 
CLEAR LEFT BY(E OF DATA 

6800 
p p 1 1 r , 

2190 

LbF 

<PTrN9=Z» FFOO* 


* ASSEMbLE LINK TAbLE 

* 

MODEDC CALL 2 V$I•ZVSUC9MS.1NK 


ASK FOR LINKS 





title m 

TGS3*' 

' K Lv G 1 

> n ; 


OCCd 

FbCO 

0003 


OCCA 

0360 

0000 


OCCC 

OF 60 



OCCO 

225b 


003136 

OCCL 

1 CEb 


003136 

OCCF 

9bb0 

22E5 

003137 

0CD1 

AB60 

22E4 

00313b 





0Co3 

FbCO 

0003 


0CD5 

0360 

0000 


uCo t 

OF 60 



OCDo 

2 ICO 



0CD9 

2 1B 7 



OCDA 

20EF 


0O3139 

OCOb 

6 760 

21B7 

003140 

OCDD 

mQOO 

2 1B 7 

003141 

OCDF 

2000 


003142 

0CEO 

0960 

oCEb 

003143 

0CE2 

1 OEb 


00314* 

0CE3 

0900 

OCFO 

003146 

0CE6 

1900 

0CC6 

003146 

0 C E 7 

CB60 

OCFO 

003147 

0CE9 

CF 00 


003146 

OCEA 

636* 


003149 




003160 

OCEd 

6780 

2 1B7 

003161 

OCED 

A800 

21B7 

003152 

OCEF 

2041 


003153 

OCFO 

0200 

0CC6 

00315* 

OCPc 

2 05 A 


003155 

0CF3 

0300 

uCC8 

003156 

0 C F 5 

A570 

001F 

003157 

0 C F 7 

1900 

0CC6 

00315b 

0CF9 

CCA2 


003159 

OCFm 

CF DO 


003160 

OCF 6 

OF 60 

0CD3 

003161 




003162 




003163 




00316* 

OCFO 

6800 

2112 


0 C F F 

0001 


003165 

0000 

0560 

0009 

003166 





0002 

FbCO 

0003 


0004 

0380 

0000 


NINE TRACK PE/NkZI MAG TAPE T6V (SAP) 


PACE 34 


003167 

00316b 

003169 

00317O 

003171 

00317c 


ODOo 

0007 


0F60 

2236 


LOV 

LAb 

LAB 

MQDEDD CALL 


CLH 

LOR 

ChV 

bNE 

CMV 

bE 

bt Z 

LAb 

6 Tb 

JMP 

# 

MCDEDP CLH 
LOR 
CMV 
bL 
CMV 
bu 
AND 
BEZ 
LOb 
STB 
b 


$R11 =-2i 

$bl*<LINKS+21*$AF 
*b2,<LNKTAa-$AF (-SAF BECAUSE ASCII A 

ZVS1A,ZVSTAT*1tMpA,0C3 


ROOM FUR 20 LINKS PLUS M C/K" 

IS 41* N01 40) 


<TEMPA 

SR2 *<TEMPA 

$K2*;=X*0D' 

<MOuEDF 

$Ri*=-21 

<MOl>EDG 

$Ri*<MQDEDC 

Sb4,<M00EU0 

Sb4 * Sbl• ♦SR1 

Sb4 

<TEMPA 

$R2 * < TEMPA 

&R2 * =X * 41 * 

<MQOE0C 

SR2*=X»6A» 

<M0OEUC 

SK2»=Z*001P* 

SK1»<M0DEDC 

Sb4*Sb2.SR2 

3>B4 9 Sb 1 •♦SRI 

<MObEDD 


GET LINK 
” C / R ” ? 

b IF NUT C/R 

b IF C/K IS FIRST LINK 

TOO MANY LINKS 

EXECUTION LOCATION 

SAVE LASI LINK BACK TO ”MODEDG M 

GO ON AND EXElUTE 


GET A LINK 

LESS THAN "A"? 

GKEATlR l HAN "Z"? 

FORM INDEX 

RAN OUI OF LlHK TABLE SPACE 
GET ENIRY FROM LNKJAB 
SAVE THE LINK 
GET ANOTHER LINK 


* "C/k" DETECTED* EXECUTE 

* 

MOOEOG LbF <EOTFLG*=Z*0001• 

bbP <MOoEDH 

CALL ZVS>!•ZVSTC * MStOT 


b IF NUT E-O-( 
REPORT E-O-T 


U006 

0000 


HLT 


HIT "EXECUTE" TO CONTINUE 

0009 

000b 

OOuc 

Cb60 2200 

ECF4 

6366 

MGDEDH 

M0DED1 

LAb 

LDb 

JMP 

Sb4,<LlNKS 
$b6 **ib4 
*b6 

FORM LINK TO KOUTiNE 

DO THE ROUTINE 


**** ******** * ********* **** * * ******* ***** ** *** **** **** ********* ********** 





TITLE MTUS3,'REV G» 


NINE TRACK PE/NRZI MAC TAP/ T&V (SAF) 
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003173 
00317h 
0 U 3 1 7 5 
00Ji7o 
00317 7 
00317a 
003179 
00316u 
003161 
003182 
003183 
U0318 h 
003185 
003186 
003187 
003166 
003139 
003190 
003191 
00319*1 
003193 
003194 
003196 
003 i. 96 
00319 7 
003196 
003199 
003/00 
003/01 
0C3c02 
003203 
003c0<t 
003*i05 
003*106 
003*07 
003*. Ob 
003*09 
003*10 
003*11 
003*1* 


/#**** ************# ****************#***#******************************** 

* THE FULLUWlNG lo A LIST OF AVAILABLE SUOROUTINl LINkS. 

* 


003*20 

003*21 

G03c2/ 

003223 

003/2*+ 

003*25 

003*26 

003*27 


003*26 

003*29 

003*30 


003231 
003*32 
003*33 
003234 
003235 
003236 
00323 7 
0032 3t> 
003239 
003240 
003*41 
00324* 
003*43 
003244 
003*45 
003*46 
003247 
00324b 
003249 
003*50 
003251 
003*52 

003*53 

003*54 

003*55 

003*56 

003*57 

003*5b 


0010 Zlbb 


00* 7 
00*9 
OD20 
00*C 
ODcU 
00*L 
0030 

0032 
0034 
0036 
0037 
003b 
003A 
003D 
UU3D 
003 F 
004 1 
0043 
0045 

004 7 
004b 
0049 


004 A 
004C 
0040 


0D4F 
0051 
0053 
0055 
005 7 


FbCO 
0360 
OF 60 
21B7 
* lbb 
CbOO 
CFOO 

FBCO 
0360 
0F60 
0047 
9900 
0*67 
*760 
0360 
OF bO 
0360 
0360 
OF 60 

5CZ0 

0000 

*424 


9C60 2185 
6751 

OF60 0010 


6000 22AB 
0000 22BE 
0360 OFtC 
0360 100F 
OF60 000b 


0003 

0000 


* 1 BO 
0048 


0003 

0000 


219t 

0024 
1G0F 
0010 
1626 
1 OOF 

ooob 


A - PKINT CONTENTS jF WRITE bUFFtK 
b - PRINT CONTENTS OF REAO BUFFER 
F - FILL WRITE BUFFER* FlXtO DATA 
G - FILL wKITE BUFFER* RANDOM DATA 
1 - FILL WRITE BUFFER* ASCENDING COUNT 
0 - TRANSFER REAO bjFFbR Tu WRITE BUFFR 
0 - COMPARE REAO BUFFER TU WRITE BUFFER 

j - LSTABLlSH RANDOM WRITl bUFFER UP TO 04K 
K - lSTABLISH RANDOM REAO dUFFlR Up Tu 6*tK 
N - OLNERaTE RANDOM PARAMETERS (LENGTH* uATA) 

. P - PRINT PARAMETER SET (UNIT LENGTH OATa W/buF R/bUF) 

C - INITIALIZE 
U - KEwINu 10 M B-0-T" 

E - lkASE A BLOCK OF TAPc. 

L - bPARE SUBROUTINES (NOP'S) 

X - LAI T TO "NEXT ?;" 

M - WRITE A TAPE MARK 

Y - FORWARD-SPACE A FILE 
U - dACK-SPaCE A FILE 

W - WRITE A RECORD 

K - READ A RECURO (DON'T CHECK DATA) 

V - FORWAkD-SPACE a record 
T - BALK-SPACE a keloko 

S - INPUT bUTH STATES wOkOS 

Z - PRINT UNIT* FILt* KECUkO* REMAINING RANGE, STATUS* 


003c 1 3 

ODOD 

9CbO 

2184 


AAX 

LDb 

SB 1 » < J JPT 

003c 14 

ODOF 

6751 




CL 

= SR 1 

003/15 

ODlU 

2 CFO 



AAA 

LDV 

SR2 ♦ =-16 

003216 

ODil 

C670 

8020 



LuK 

SRA , = Z ' 8020 * 

003c 1 7 

0D1 3 

CFOO 

/lbb 



STR 

SR4 , < T EMPb 

003/ 1 o 

0D1 5 

9F00 

21B7 



STK 

SRI ♦< TEMPA 

003/19 

001 7 

FbCO 

0003 



CALL 

/VS I N * TEMP Ai TEMPb 


OD1 9 

D360 

0000 

X 





ODlb 

OF bO 







OD 1C 

21B7 







************ ************************************************************ 

* ALL ROoTINlS EXCEPT "H» WILL RETURN TO "MUOEOI" UPON COMPLETION 
*************************** ********************************************* 

* PKINT CONTENTS uF WRITl BjFFEK 

* 

WRITE BUFFER POINTER 
K1 INDEXES Thr<OUGH BUFFER BY BY 1ES 
COUNT 16 BYTEo PER LINE 
CR/tF AND LeAjING SPACE 
contrue WORD 
SAVe dYTE NUMdER 
PRINT BY(E NUMBER 


OD 11 

9F5 7 

STR 

SRIt=SR7 

SAVE b Y Tt INDlX 

OD 1F 

9870 2D2D 

LuR 

SR 11 = * —' 


0D2 1 

D3faO OFCb 

LNJ 

SB5 « <VDTR 

PRINT DASHES . 

OD/b 

9857 

LDR 

SRI* = SK7 

RESTORE BYTE iNDEX 

OD/4 

C2DD 

AAb LLH 

sR4*SBl•♦SRI 

GET DAfA 

0D2 5 

CFOO 21B7 

STR 

SK4,<TEMPA 




CALL 

ZVShA,T tMPA * V xbL 

CONVEKl TO ASlII 


GET ASCII 

SAVE Ab PART uF MESSAGE 
PRINT " XX" 


RETURN 

CHECK FOR KEYBOARD ACTIVITY 

DU A LINE FEE u 
CHECK FOR KEYoOARD ACTIVITY 
RETURN FUR NEXT DEBUG LINK 

START UF MESSAGE (ONE BLANK) 

SPACE FOR -IDATa ~ 

END OF MESSAGl 

************************************************************************ 

* PRINT CONTENTS UF READ BUFFER 

* 

BB LDb Sbl»<KKPT READ BUFFFER POINTER 

CL =$Ri INDEX THROUGH BUFFER BY BYTtS 

b <AAa CONTINUE AS WITH Link "AA" 

************************************************************************ 

* INITIALIZE 

* 

CC lu <IN/BDC*<OTCONT INITIALIZE THl BDC 

LNj SB5 *<1NSTAT 

LnJ SB5 * < SENSE 

b <MUDEDI 

**************************** 

* COMPARE REAO BUFFER TO WKi 

* 



L Jk 

SR4,<VRbL + , 


STR 

SK4,<AAD+1 


CmLL 

2VS 1 » AAU 


ChR 

$r 1 * <kng 


bvjE 

> A AC 


bINC 

SK2♦ < AAB 


LNJ 

SB5 *<SENbE 


b 

<aaa 

AAC 

LNJ 

SB5 *<CRLF 


LNJ 

SB5 »<SENSE 

* 

b 

<MODEDI 

AAD 

DC 

»\ ' 


resv 

1*0 


DC 

• $s» 


003259 

0D59 

D380 

OF A2 

DD 

LNj 

SB5»<LAbEL 

003/60 

0D5d 

4444 



DC 

* OD' 

003261 

0D5C 

9b80 

0D6E 


LAD 

Sbli<DDA 

003/62 

0D5t 

9F60 

21A4 


STB 

SB1,<KTRY 

003/63 

0D6U 

9F80 

218B 


STB 

Sbl»<NTST 

003/64 

0D6/ 

9B80 

10C2 


LAB 

SB1»<RT4 

003/65 

0D64 

9F80 

2 1 A3 


STb 

$BU<KTRN 

003/66 

QDo6 

D380 

10B6 


LNJ 

SB5 »<SET 

003267 

0D6b 

ACbO 

2165 


LDB 

SB2♦<KKPT 

003/66 

0D6 A 

9C80 

2184 


LDb 

Sbl♦<JJPT 

003/69 

0D6C 

D3&0 

123F 


LNJ 

SB5 $ <1Sb 

00 3c 70 

0D6E 

D380 

100F 

DDA 

LNJ 

SB5 * <SENSt 


WAIT FUR N/BSY 
CHECK FOR KEYoOARO ACTIVITY 
GO BACK FOR NlXT DEBUG LINK 
******************************************** 

TE BUFFER 

SET MAJOR EKKuR LABEL 
LABEL1 

ABORT LOCATION 

USE AS RETRY LOCATION 

ALSO UbE AS NlXT TeST LOCATION 

RETRY ROUTINE (NOP) 

SET CNIRS» CLK FLAGS 
READ bUP'FtK POINTER 
WRITE BUFFER POINTER 
CHECK DATA 
"NEXT ?;" 



TITLE MTUS3« 1 

1 REV G< 

» NINE 

TRACK 

PE/NRZ1 i 

MAG TAPE T&V (SAF) 
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003271 

0070 

OF 80 

OQOb 



b 

<MOotOl 

RETURN FOR NEaT DEBUG LIna, 


003t72 





************ * #**#*###** ********* *************** ****** ******************* 


003273 





* ERASE A BLOCK AND WAIT TILL DONE 



003474 





* 




/ > 

003275 

0072 

0380 

0FA2 


EE 

lnj 

$B5*<LAbEL 

SET MAJOR ERKuR LABEL 

i§ V 

00347b 

0074 

4445 



OE 

DC 

»DE* 

LABELl 


003*77 

0075 

0380 

1340 



LNJ 

$B5 *<ERAW 

ERASE AND wA1| 

\/ 

003276 

0077 

0360 

1 OOF 



LNJ 

$B5 *<SENSE 

"NEXT ?" 


003279 

0079 

0360 

176 A 



LNJ 

$B5 * <EQTCHK 

CHECK IF AT EuT 


003280 

00 7 o 

OF 80 

ODOB 



b 

<MOOtOi 

RETURN 


003281 





*#* ********* ****4**#*************** ******** ******************#*#*#******* 


003*82 





* FILL 

WRITE 

BUFFER WITH A RECORDS 

LENGTH OF FlXtD DATA 


003*83 





* 





003284 

0070 

8751 



FFF 

CL 

= $R i 



003285 

007L 

9C60 

2164 



LDb 

$B1«<JJPT 



0U3286 

0080 

A800 

2190 



LDR 

$R2,<PTRN 

GET DA I A 


003287 

0062 

A7D0 



FFA 

STH 

$R2*Sbl.+$Rl 

STORE iHt OATa 


00328b 

0083 

9900 

2 19E 



CMK 

Ski*<KNG 

DONE YET? 


003289 

0085 

0270 




BL 

>FFa 

KEEP FILLING 


003290 

0086 

0F60 

000 b 



b 

<MODEDl 

RETURN 


003291 





************************************************************************* 


003292 





* FILL 

WRITE 

BUFFtR WITH RECORDS LENGTh OF RANDOM DATa 


003293 





* 





003294 

0068 

6751 



66 

CL 

= $Ri 



003295 

0089 

9C80 

2184 



LOB 

sbl♦<j jpt 



003296 





6 GA 

CALL 

ZVSFk*TEMPA*DCl 

GET A RAND NMuR 



0080 

F btO 

0003 








0060 

0380 

0000 

X 







0 Obi- 

OF 80 









0090 

2167 









0091 

20 tt 








003297 

0092 

A800 

2 1B7 



LOR 

$R2♦<TEMPA 



003298 

0094 

A 700 




STH 

$R2 »SB1 • + SR1 

STORE IT IN BUFFER 


003299 

0095 

9900 

2 19t 



CMR 

SR I * <KNG 



003300 

009 7 

0200 

006b 



bL 

<06A 



003301 

0099 

OF 80 

000 b 



b 

<MObtOI 

RETURN 


003302 





************************************************************************* 


003303 





* FILL 

wkl ft 

BUFFtR WITH RECORDS LENGTH OF ASCENDING COUNT 


003304 





* 





003305 

009b 

6751 



11 

CL 

= $R 1 



003306 

0D9C 

9C80 

2184 



LOB 

SB1»<JJPT 



003307 

0090 

9791 



I 1A 

STH 

SkUSBUSRl 



003308 

0091"’ 

8 AO 1 




INC 

= $R1 



003309 

00 A0 

9900 

2 191 



CMR 

SRI»<KNG 



003310 

00A2 

0200 

0Q9E 



BL 

< I 1 A 

KEEP STUFFING 


003311 

0DA4 

OF 80 

ODOb 



b 

<MODEOI 

return 


003312 





************* ************************************************************ 


003313 





* ESTABLISH A 

WRITE BUFFtR RANDOMLY LOCATED AbOVt. ZV$LR 


003314 





* IF 6K MACHINE* IHIS HAS NO EFFECT 

• 


003315 





* 





003316 

00A6 

FC60 

0000 

X 

JJ 

LOB 

SB7 * <ZV$Hk 

GET HMA IN b7 


003317 

00A6 

A6C0 

2000 

P 


LAB 

SB2 *ZHCOMM+6192 



00331b 

OOAA 

FDD 2 




CMb 

SB7 * =$B2 



003319 

OOAp 

0380 

ODOb 



BLL 

<MOuEDI 

ONLY 6K* RETURN 


003320 





* 





003321 

00 AO 

9BC7 

FbbO 



LAb 

SBl*$B7.-U52 

ROOM AT IHt TuP FOR 2046+256 6YIES 

/■ff "V 

0u3322 

00 AF 

9 F 8 0 

2 1 BA 



ST b 

Sbl»<MXAO 



003323 

00 b 1 

0380 

OFF 7 



LNJ 

SB5i<GRNADK 

GET RAND ADDkuSS 

\ , / 

003324 

0063 

9 F 8 0 

2164 



ST 6 

$B1*<JJPT 

STORE IT 


003325 

00b5 

9680 

1 C66 



LAB 

SB 1»<RBUF 



00332b 

0067 

9F60 

2185 



ST b 

S61i<KKPT 

KESTORt STANDaRD Read buffer 


003327 

0009 

0380 

100F 



LNJ 

SB5i<SENSE 

NEXT DESIRED ? 


003326 

ODbb 

0F80 

OOOB 



B 

<M0DED1 

RETURN 


003329 





******** * ********************** ** * *************************************** 


00333U 





* ESTABLISH A 

RANDOMLY LOCATED READ BUFFER ABOVE ZVSLR 


003331 





* 





003332 

0060 

FC80 

GOOD 

X 

KK 

LOb 

$B7,<ZVSHR 

GET HMA IN 67 


003833 

OOdF 

AbCO 

2000 

P 


LAb 

SB2 * ZHCUMM + 8192 



003334 

OOCi 

F 002 




CMb 

SB7,=sb2 



003335 

00 C2 

0360 

ODOB 



BlE 

<M0DEDi 

RETURN* ONLY oK 


003336 





* 





0 U 3 3 3 7 

00C4 

9BC7 

FBBO 



LAb 

Sbl*$67.-1152 

ROOM FOR 2046+256 BYTES 


003336 

OoCb 

9F60 

216A 



5 Tb 

Sbl * <MXAD 



003339 

O0C6 

0360 

OFF 7 



LNJ 

$65 * <GRNADR 

GET Random AOuRtSS 


00334U 

OOCA 

9F80 

2165 



STB 

Sbl*<KKPT 

SAVE 11 


003341 

OOCL 

9b8G 

1 716 



lab 

Sbl,<wBUF 



003342 

GOCt 

9F80 

2184 



ST 6 

Sbl * <0JPT 

RtSTOkt standard read buffer 


003343 

UOO0 

0380 

100F 



Lnj 

SB5,<SENSt 

NEXT utsikto Y 


0U3344 

0002 

OF 80 

ODOb 



b 

<MOoLOI 

return 


003345 





************************************************************************ 


003346 





* SPARE SudROuT I Nc. 



003347 





* 





003346 

OdDa 

0F7F 



LL 

NOP 

>$-i 



003349 

0005 

0F7F 




NOP 

>S- i 



003350 

U006 

0F7F 




NOP 

>S-i 



003351 

000 7 

0F7F 




NOP 

>$-i 



003352 

OUOo 

OF 7 F 




NOP 

>$- 1 



003353 

0009 

0F7F 




NOP 

>$- i 



003354 

OOOA 

0F7F 




NOP 

>$-i 



003355 

OOUD 

OF 7F 




NOP 

>$** 1 



003356 

ouoc 

0F7F 




NOP 

>$-’ 1 



003357 

0000 

OF 7F 




NOP 

>S-i 



003358 

ooot 

OF 7F 




NOP 

>$-l 



003359 

OUOF 

OF 7F 




NuP 

>S-1 



003360 

OOLo 

0F7F 




NOP 

>$- 1 



003361 

OOt 1 

0F7F 




NOP 

>$-1 



003362 

00L2 

0 F 7 F 




nop 

>$- 1 



003363 

00t3 

0F7F 




NOP 

>$-1 



003364 

00t4 

OF 7 F 




NOP 

>$-1 



003365 

OOt 5 

OF 7F 




NuP 

>S-1 



003366 

U 010 

0F7F 




NOP 

>$-1 



003367 

OOt ? 

0F7F 




NOP 

>$-i 



003368 

OOtb 

0 F 7 F 




NuP 

>S-i 



003369 

00t9 

0F7F 




NUP 

>S-1 



0 0 3 3 7 o 

OOtA 

0 F 7 F 




NOP 

>S-i 



003371 

OOtb 

0F7F 




NuP 

>S-1 



003372 

oote 

0 F 7 F 




NuP 

>$-l 



003373 

oo to 

OF 7F 




NOP 

>$-l 



Q0337h 

OOLL 

OF 7F 




NOP 

>S- 1 


I 

003375 

OOtF 

0 F 7 F 




NOP 

>s-l 


V y 

003376 

OOF 0 

OF 7F 




NUP 

>$-i 



003877 

OOF 1 

0F7F 




NOP 

>$-i 



003378 

00 F2 

OF 7F 




NUP 

>$-i 
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003379 

OuF 3 

0P7P 


00338u 

OOP 4 

0 P 7 P 


003jtil 

Ob‘P D 

0P7P 


00J38c 

ODP b 

0 P 7 P 


00338^ 

udP t 

0 P 7 P 


003364 

ODP o 

0 P 7 P 


003j85 

ODP 9 

D3 80 

100P 

00338b 
003387 
0U338 a 

ODP d 

OP 8 1 

P POP 

003389 

0U3390 

ODPU 

oouo 


0G339I 

0DP L 

0000 


00339c 

ODP P 

uouo 


003393 

GtUU 

0000 


003394 
003393 
00339o 

GtO i 

0000 


0 0 3 3 9 7 
00339 o 

0102 

D380 

OP A2 

003399 

0L04 

444b 


G0340U 

ul05 

D360 

1 3 1A 

00390i 

0 LO 7 

D380 

OPEC 

00340,. 

0EU9 

D380 

100P 

00340 J 

0 tOb 

D380 

1 76 A 

00340h 

003403 

003406 

OLuu 

OP 80 

ODOb 

003407 

00340b 

GLOP 

1C01 


003409 

00391b 

OLIO 

9P00 

2 1 b 7 


Otic 

Pbco 

0003 


OL 1 4 

D380 

OOOU 


OElb 

UP 80 



011 i 

21b 8 



otlb 

2 lb? 


003bli 
003^1c 
003413 
003414 

Ol 19 

9800 

21B8 

0034 1 6 

OE 1 d 

9570 

07 F F 

0u34lo 

OElD 

1 EO 1 


003917 

Otlt 

1D11 


OU 391 c 

OE 1 P 

0A02 


003919 

0120 

lfc.ll 


00342u 

003921 

Ot4 1 

9POO 

219t 

00342c 
00342 J 
003924 

0E2 3 

9280 

2 lbb 

003423 

0E2 5 

9F00 

2190 

00342b 

0E27 

D380 

100F 

003427 

00342b 

0tc9 

OP 80 

ODOb 

003429 

003430 

003431 

Otcu 

D380 

0 p A2 

003432 

OtcD 

444p 


UU3433 

OEct 

D360 

13P5 

003939 

Ot 30 

D380 

100F 

003933 

00343b 

OE 32 

0P80 

ODOb 

003437 

0u393b 

003439 

0E34 

PbCO 

0003 


0E3b 

D380 

0000 


Ot38 

UPfaO 



Ot 39 

2271 


003h 4 u 
003941 
0U344Z 
003443 

Ot 3m 

9800 

2 OF 5 

003444 

0L3C 

1047 


003443 

Ot 3D 

9P00 

2 1 b 7 

00 3h4o 

0E3P 

PBCO 

0003 


Ot 4 1 

D380 

0000 


0E43 

OF 80 



UL44 

21b7 



0E45 

2 lbb 


003447 

0E9b 

PbCO 

0003 


0E4b 

D380 

0000 


0 E4m 

0P80 



0E9d 

2 lbD 


00344b 

003449 

003430 

003451 

0E4C 

D380 

145F 

00345c 

UE4E 

PbCO 

0003 


OE 50 

D380 

0000 


0E5t 

OPtiO 



015 3 

219E 



0154 

21bb 


003453 

0E55 

PBCO 

0003 


OE57 

D380 

0000 


Ot 59 

OP 80 



0E5 A 

2 1 bC 


003459 

003955 




00395b 

003957 

Ot 5d 

D380 

145F 

00345b 

Ot5D 

PBCO 

0003 


0E5P 

D380 

0000 


OEb 1 

OP 80 



0E64 

2X90 



OEb 3 

21bb 



NUP 
NUP 
NOP 
NUP 
NuP 
N OP 
LNJ 
b 


>$-l 

> 4-1 

>4-1 

>4-1 

>4-1 

>4-1 

Sb5*<SLNSE 
HODtDi 


"NEXT Y» 
RETURN 


* ROOM PUR CONSTANTS* tTC. 


MM 

DM 


KlSV 
RLbV 
K t SV 
KESV 
KESV 


LNJ 
DC 
LNJ 
LNJ 
LNJ 
LNJ 
b 


ItO 
1*0 
1*0 
1*0 
1*0 

************************************************************************ 

* WRITE A PI Lb MAkK 

* 

Sb5*<LAdtL MAJOR ERKOR LaBEL 

•DM* LABtLl 

Sb5*<WFM WRITE FILE MA*k 

SB5i<iNSTAT GET STATUS 

4bb *<SENSE "NEXT V" 

SB5*<EUTChK CHECK IP AT EuT 

<MQuEDI RETURN 

************************************************************************ 

* GENERATE: A btT UP RANDOM PARAMETERS (KNG* PTRNj 

* 

NN LD'V 4R11 = 1 

b TR 4R1» <IEMHA 

CALL 2 V $ P k * T EMPd * T t MP A 


RANGE = 1 

GET RANDOM NMpR IN TEMPb 


X 


* RANGE 

* 


NNA 


LDR 

AND 

adv 

CMV 

oaG 

ADV 

bTK 


4 R1 * <1EMPb 

Skl*=Z'U7FF» 

4R 1 * = 1 

4R1*=17 

>NNa 

4R1* = 17 

SKI* <KNG 


GET RAND DATA 

LIMIT RANGE Td 12-faOO HEX 

=11 HEX 

b IP ALREADY wITHlN RANGE 
PUT WIIHIN RANGE 
SAVE RANDOM RaNGE 


* PATTERN 

* 

LLh 4R1 * <TEMPb 

bTK i>K 1* <PTKN 

LNJ $b5*<StNSE 

b <MOULD I 

********************************** 

* bACKSPACt A PIEt 

* 

00 ENo 4bb»<LAbEL 

DO DC 'DU' 

LNJ Sb5 * <bSFW 

LNJ SB5*<SENSE 

b <MOuEDl 

********************************** 
* PRINT PARAMETER LIST (DRIVE* RNG 


GET LtPT bYTE OF RAND NMbK 

STOKE AS PATTERN 

NEXT? 

RET uRN 

************************************** 


LAbtLl 

bACKSPACE AND WAIT TILL DONt 
NEX1? 

RETURN 

************************************** 
PTKN * JJPT * kKPT) ALL HEX 


PP 


CALL ZV$r.ZVSTC*MSPAKM 


PRINT "PAKMS" 


* DRIVE 

* 

LDK 4K1»<DKIVE 

boR $K 1 * 7 RIGHT JUSTIFY 

blK SR 1 * <T EMPA 

CmLl z. V 4hA * T cMPA * V-(dL CONVERT TO ASCII HEX 


CALL cV$T*VkdL*2 PRINT DPTIVE NmBR 


* RANGE * dYT tb (HtX) 

* 

LNJ Sb5*<BLANKS PRINT 2 btANKd 

CALL ZV$hA*RNG*VKbL CONVERT 10 Abb I I Hex 


CALL ZV$l*VKbt*l PRINT RANGE* HEX BYTES (#00 MAX) 


* PATTERN 

* 

LNJ SB5 * <BLANKS PRINT 2 ULaNKj 

CALL zVShA•ZV SHZ »PTRN*VRbL CONVERT TO AdCII HEX 

X 


003439 


CALL 


ZVST *VKbL*2 


PRINT PA I TERN * HtX 
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0E64 

FBCO 

0003 







0E6b 

0380 

0000 

X 






Otbb 

0F80 








0E69 

2 1 bD 







003460 





*- - - 

«. » — , 



003461 





* wRITt bOFFtk (JJPT) 


003462 





* 




003463 

OEoA 

0380 

145F 



LNj 

bB5,<BLANKb 

PRINT 2 BLANKj 

003466 





PPA 

NOLL 



003467 






CALL 

ZV$ 1 Fi.ZVSTHZ* JJPT+$AF 

•i*DCbb 


Ot bC 

FBCO 

0003 







OEoE 

0380 

UOOO 

X 






0E70 

OF 80 








0E7 1 

2184 








0E72 

20P 4 







00346b 





*- - - 

«. . „ , 



003469 





* READ 

Buffer 

(KKPT) 


00347u 





* 




003471 

Ot 7 3 

0380 

145F 



LNJ 

$66 9<BLANKb 

PRINT 2 BLANKj 

003474 





PPb 

null 



003476 






CALL 

2 ViiH.ZViTHZ»KKPT+iAF-l*DCbb 


Ot 76 

F 6C0 

0003 







0L7 7 

0380 

0000 

X 






0E79 

OF 80 








0E7A 

2186 








0E7b 

20F2 







■00347b 





* 




003477 

OL /C 

0380 

100F 



LNJ 

$65»<bENbt 

NEXT? 

00 34 7 b 

0 E7c 

OFbl 

FE8C 



b 

HODtDi 

RETURN 

003479 





*************************** ********************************************* 

003480 
00348 I 





* IKANbFtK CONTENTb OF RtAD bUFFLR 

TO wRUE BUFF tR 

003482 

0E80 

9800 

2 191 


UG 

LOR 

$kl»<RNG 

GtT RANGt 

003h83 

0E82 

1F 04 




MLV 

$RU=4 

MODIFY FUR CAuL STATEMEN1 

003484 

0tb3 

9F00 

21 b7 



bTR 

$R 1 * <T tMPA 


003486 






CALL 

ZViHb»TtHPA»K<PT »JjPT MOVE BYJtb 


Otbb 

FBCO 

0003 







0E87 

0380 

0000 

X 






0L89 

0F80 








Otb A 

2 1 b7 








Ot 8i3 

2 I 86 








OEbo 

2184 







0U3486 

0E80 

03 80 

100F 



lnj 

iB5 9 <btNbt 

NEXT? 

00348 7 

OtbF 

OFbl 

Ft 7b 



b 

HODtDi 

RETURN 

00348b 





************************************************************************ 

003489 





* KtAD 

A RECORD INTO DtbUG READ BUFFER (*KKPT) 

00349U 





* 




003491 

019 1 

0380 

OF A2 


KR 

Lnj 

iB5 *<LAbtL 


003492 

0E93 

4462 



DR 

DC 

• DR » 

LABEL 1 

003493 

0t94 

9C80 

2185 



Lob 

ibi*<KKPT 

READ BUFFER 

0U3494 

0 E9b 

9 F 80 

21b3 



b T b 

$61»<bLDb 

CORREN) DATA BUFFER 

003496 

019b 

9 F 80 

0EA7 



bib 

$bl,<RRA+4+$AF 

BOF ADR FOR 2y$F 

003496 

0E9A 

9080 

otbt 



LAb 

$bl,<KRD 


003497 

0E9C 

9F80 

21A4 



bTb 

$B1 9 <RT RY 

RETRY LOG (NO RETRY) 

00349b 

0E9t 

9b80 

10C2 



LAB 

$B 1 9 <R T 4 

NOP 

0O3499 

0 0 3 6 0 0 

01 AO 

9F80 

21 A3 


* 

bTb 

ib1 9 <R1RN 

RETRY ROUTINE (NOP) 

003601 

0EA2 

FBCO 

0003 


RRA 

CALL 

2V$P 9 RBUF 9X33339LENGTH (bUF* DAT A 9 RANGt-WORDb) 


0 1 A4 

0380 

0000 

X 






OE Ab 

OF 80 








Ot A7 

lC 6 b 








OtAb 

2 16F 








0EA9 

2189 







00 3 604 





* 




00360b 

Ot AA 

0380 

iObb 



LNJ 

$65 9<bET 


003604 

OtAC 

8AB0 

2 101 



INC 

<DXKN.$K3 

bump RtcoRD Counter 

003606 

Olal 

8188 

2185 


RRb 

IULD 

*<KkPT 9<10REAJ9<KNG 



OtbO 

0000 

22 Bb 







0LD4 

0000 

2 19t 






Oo3 60b 

Otb4 

07 FA 




blOF 

>RRu 

KEEP TRYING 

00360/ 

Otb 6 

8000 

24 9F 


RRC 

10 

<Rt aDF D 9 <01 TASK 

bTART 10 READ 


Otb/ 

0000 

22C2 






00360b 

0 tb9 

07 Ft 




B 1 OF 

>RKC 

KEEP TRYING 

003609 

OEdA 

0380 

OF EC 



LNJ 

$65 9 <1NbT AT 

WAIT FOR BUbY 

00 3 5 1 u 





* 




Oo3 6 1 1 

OtbC 

0380 

1480 



Lnj 

$65 9 <ERCK 

CHECK FOR ERRuRb 

003614 

otbt 

0380 

100 F 


RRD 

LNJ 

$B5,< bENbt 

NEXT ? 

003613 

Otto 

0380 

17 6 A 



LNJ 

$65 , <tOT CFiK 

ChECK IF AT EoT 

0o3 3 14 

OtC 2 

0F80 

ODOb 



b 

<MOOEDI 

RtTURN 

003616 





************************************************************************ 

003616 

003617 





* INPU 1 

* 

dOIH 

bT AT Ob WORDb ( MAY HUD1FY PRtVIOObLY RECEIVED bT AT Ob) 

00361o 

0LC4 

0380 

OF EC 


bb 

Lnj 

$65 9 <INbT Al 

GtT bTATUb WO*Db 

003619 

0 tCb 

0380 

100 F 



LNJ 

$669 < bENbt 

NEXT ? 

003620 

OECb 

0F80 

ODOb 



b 

<MODtDl 

RETURN 

003621 





************************************************************************ 

003622 





* bACKbPACt A 

RECORD 


003623 





* 




003624 

OLCA 

0380 

OF A2 


T T 

Lnj 

$65 9 <LAbtL 


003626 

otcc 

4454 



DT 

DC 

•DT • 

LABtL 1 

00362b 

OtCl) 

0380 

OFEC 



LN J 

$65 9 <1NbT AT 

GET bTATUb 

003627 

OECF 

8280 

2 1 b4 



tb 

<bTAl19=2*0200* 



OtDi 

0200 







00362b 

0ED4 

0503 




bbT 

>T T A 

6 IF b-O-T 

0o3629 

0ED5 

0380 

142b 



LNJ 

$65 9 < 6 bKW 

BACKbpACt AND WAIT 

0 0 3 6 3 0 

0 EDb 

03b0 

1 OOF 


T TA 

LNJ 

$b5 9 <bENbt 

NEXT ? 

003631 

Otb 7 

OF 80 

ODOb 



b 

<MUutDI 

RETURN 

003632 





************************************************************************ 

003633 





* REWIND TO b 

-0-1 


003634 





* 




003636 

0ED9 

0380 

0FA2 


ou 

LNJ 

$65 9 <LAbtL 


00363b 

0 tL)b 

4455 



DO 

DC 

•DO* 

labeli 

003637 

OLOC 

8000 

2299 



10 

<Rtw1ND 9 <0T T AbK 



otut 

0000 

22C2 






00363o 

Otto 

0705 




biOT 

>UUA 

B IF OK 

003639 

otti 

0380 

1030 



LNJ 

$65 9<FNER 

bHOULD HAVE btEN RDY FOR REWIND 

003640 

0tt3 

3033 



FNER03 

DC 

*03* 

LABtLZ 

003641 

OttH 

oFbF 




b 

>UUc 

ABORT 

003644 

Ott 6 

0380 

OFtC 


UUA 

LNJ 

$65 9 < INbT A 1 

GtT bTATUb 

003643 

Obt 7 

9800 

21b4 



LDP 

$R19<bTATl 


003^44 

Ot_L9 

9970 

8200 



CHK 

$R 1 9 = 2 • 8200 * 

RDY 9 b-O-T 

003646 

Ottb 

0904 




bt 

>UOu 

b IF OK 
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00334o 

06 LG 

0360 

1030 



LNJ 

505i<6 N6K 

3TAT 1 NG AFTlR RtWINO 

003547 

0666 

3036 



FNCK08 

DO 

*08 » 

LAB6L2 

003348 

0 66 6 

6 730 

20F 6 


UUb 

CL 

<DXfN.$R3 

K656T FILL COuNILR 

00 3 349 

0 6 f" 1 

6 730 

2106 



CL 

<DXKN.$K3 

R636T RECORD ^OUNTtR 

m 003 5 5u 

0LT3 

0360 

100 F 


UUC 

LNJ 

$b5 ,< 5EN3E 

NLXT ? 

| 003331 

GEP 5 

0660 

OOOB 



b 

<M0d6DI 

K6TuRN 

OU3552 





*** ************************* A******************************************* 

003333 





* FORWARD 5PACE A RECORD 


003334 





* 




003353 

06 F 7 

0360 

0 FA2 


vv 

L)MJ 

$B5 ,<LAb6L 


00355b 

OlF 9 

4456 



ov 

DC 

*DV» 

LABEL1 

003557 

ULFa 

0380 

13C1 



LNJ 

$b5 * <6 5Rw 

FORWARD 3PAC6 AND WAIT 

00 3 3 3 o 

UE6 l 

0380 

100F 



LNJ 

$b5«< 36N56 

NLXT ? 

003559 

06 F l 

0380 

1 76 A 



LNJ 

$b5,<E0TCHK 

CH6CK IF AT LuT 

003360 

Of uu 

0680 

OOOB 



b 

<MObEDI 

R61URN 

003361 





************************************************************************ 

003 56*. 





* WK1T6 A K6COK0 FROM DEBUG Wk116 

BUFF6R (*JJPT) 

003363 





* 




003364 

0602 

0380 

OF A2 


WW 

LNJ 

505»<LABEL 


003565 

06 04 

44 5 7 



DW 

bo 

»ow * 

LAB6L1 

003366 

0603 

9680 

OF 2 5 



LAb 

5 b1,<WWC 

R6TRY LOCATION 

003367 

0607 

9 F8G 

21A4 



STB 

$01,<RTKY 


00336b 

Of- 09 

9FoO 

218b 



3 Tb 

$01,<NT31 

15 AL3U ABORT LOCATION 

003369 

OP Ob 

9680 

10C2 



LAB 

$bl* <RT4 

NOP ROOT 1NE 

003370 

UP Ob 

9F60 

2 1 A3 



5Tb 

$01,<RIRN 

K6TKY K0UTIN6 15 A NOP 

0U33 71 

06 OF 

9660 

2066 



3 r d 

$01,<ABKN 

SAME FOR AbOKI ROUTINE 

Oo33 /<: 





* 




003373 

06 11 

o380 

1469 



LNJ 

$B5 «<ANd 

CHECK FOR ACT, N/BSY 

003b74 

06 13 

6 AbO 

2106 



l.MC 

<0XrN«$R3 

BUMP RECORD COUNTER 

003373 

0615 

6 168 

2164 


WWA 

1 OLD 

*<Jjh T,<IOWR11 , <RNb 



OFi 7 

ooou 

22BC 







OF 1 9 

0000 

2196 






003376 

Of Id 

0 76 A 




b 1U6 

> W W A 

KELP 1R YI NO 

003377 

06 1C 

6000 

*2 A2 


wWb 

lo 

<WKlT6t<UTlA3< 

51 ART 10 WKITt 


OF 1 6 

0000 

22C2 






0033 7o 

OF 20 

0 7 6 C 




uiUF 

> WWb 

KELP TRYING 

003579 

OF 2 1 

0360 

0 F6C 



LNJ 

$05,<IN5TAI 

WAIT FOR N/b5Y, GET STATU5 

003380 

06 c3 

0360 

1480 



LNJ 

$05,<6RCK 

CHECK FOR ERRuRS 

00336I 

06*5 

0380 

100F 


w WC 

LNJ 

o>05 ,<3EN5E 

NEXT ? 

00338* 

0 6 2 7 

0380 

176 A 



LNJ 

$b5 *<60TCHK 

CHECK IF AT EuT 

003383 

0629 

0680 

OOOB 



b 

<M0DED1 

RETURN 

003384 





************************************************************************ 

003383 





* 6X11 

to "next ?: m 


003586 





* 




003387 

06 *b 

0660 

02*9 


XX 

b 

<R6B1KT 

RETURN TO "NEaT ?: •• (wIA K 6 3 T A K T ) 

003386 





************************************************************************ 

003389 





* FORWARD 3PACE A 6IL6 


003390 





* 




003391 

OF 20 

0360 

0FA2 


YY 

LNJ 

$05,<LAbtL 


00639* 

UP 2 P 

445 9 



DY 

DC 

* OY » 

LABEL 1 

003393 

OF 30 

0380 

1375 



LNJ 

$05,<6 3Fw 

FORWARD 3PACE AND WAIT 

003394 

OF 3 * 

0360 

100F 



LNJ 

$05,< 56N36 

NEXT ? 

003595 

OF 34 

0360 

176A 



LNJ 

$05,<60TCHK 

CHECK IF AT EOT 

003396 

OF 36 

06 60 

000 b 



b 

<h0o6bI 

RETURN 

003397 





*************************** * ******************************************** 

^ 00339b 





* PK1N1 

UNIT, 

FILL, R6C0R0, R6MA1N1NG RANG6* STA|U3 1, ST ATU5 2. 

| 003399 





* 




I 00360U 

0638 

0360 

1366 


22 

LNJ 

$05,<G6 TkNb 

GET REMAINING RANGE, STORE IN "RANGE" 

1 003601 






CALL 

2 V$ 1 *cV$IC,M53T AT 

PRINT " 3T AT 


06 3A 

6 bCu 

0003 







UP6L 

0360 

UOOU 

A 






U F 3 6 

UF80 








OF 36 

2*94 







003b0* 





*- - - 

- — - - 



003603 





* UNIT 




003604 





* 




003b05 

06 40 

dFOO 

21b7 



5 IR 

$R 3,< T 6MPA 

5AVE UN 1I NMBK (INDEX) 

003o0o 






CALL 

CV $ 1H.ZVSTD,TEMPA 

UNIT 


0642 

6bC0 

0003 







0F 44 

0360 

0000 

A 






OF 46 

0660 








06 4 7 

2 lb? 







00360 7 





*-. - - 

- • . - 



003o0b 





* 6IL6 

NuhbbK 

( H6X ) 


003609 





* 




00361U 

0646 

6830 

2066 



LOR 

$R6,<DXFN.$R3 

GET FILE COUNI 

003611 

0 6 4 A 

6630 

2106 



LdR 

$K7,<DXRN.$R3 

GET RECORD COuNT 

003o 1 c 

0640 

600 U 

21B7 



501 

<1 LimPA 

3T0RE IN TEMPm AND TEMPO 

003613 

0646 

0360 

145 F 



LNJ 

$05 , <0LANK5 


003614 






CAlL 

cV$Th,T6NPA 

FILE NUMBER 


06 50 

6 bC0 

0003 







0652 

0360 

0000 

A 






Of 54 

0660 






. . 


06 35 

2107 







003613 





*- - - 




00 3o 1 6 





* K6CUR0 NUMdEK (H6 X) 


003617 





* 




00 36 1 b 

06 5o 

0360 

14 5 F 



LNJ 

$b5 » <bLANK5 


003619 






Call 

2 V2>T H , TEMPB 

RECURD NUMBER 


065b 

6BC0 

0003 







06 5 A 

0380 

0000 

A 






065C 

0680 








0650 

2 lbs 







003620 





*- - - 

— — — - 



003621 





* RANG6 REMAINING FROM PKEVIUU5 OPERATION ( H6X ) 

00362* 





* 




003623 

065E 

0360 

145F 



LNJ 

$05 ,<0LANK5 


003624 






CALL 

2V$1H , RANG6 

RANGE REMAINING 


0660 

6 BC0 

0003 







06 62 

0360 

0000 

X 






06 04 

OF 60 








0665 

2190 







003625 





*- - - 

— — — - 



003626 





* 51 AT 

I 



003627 





* 




00362b 

066o 

D380 

145F 



LNJ 

$05 ,<bLANKS 


003629 






CALL 

2V$TH.2V$TH2,5TAT1 

3TAT1 

dpr-'-- 

0666 

FBCO 

0003 






r 

OF 6 A 

0360 

0000 

A 





1 

0F6C 

0F80 








OF Od 

21B4 







003b3u 





*— — — 

— — — - 



003631 





* 3TAT 

2 











TITLE MTU53 *•REV 6» 


NINE TRACK PE/NRZI HAG TAPE T6V (5AF) 


PAGE 40 


003b3Z 

003633 

0F6E 

0380 

145 F 

003b3* 

OF 70 

FbCO 

0003 


0F7Z 

0380 

0000 


0F7* 

0F80 



OF 73 

21B5 


003633 

003636 

OF 76 

0380 

100F 

0 U 3 6 3 7 
003o36 

OF 78 

OF 80 

000 B 


LNJ $B5 *<bLANK8 

CALL ZV$iH.ZVS>TFIZ*3TA72 5TAT2 


LNJ SbB5 *<SENSE NEXT ? 

b <MOoE0I RETURN 

************************************************************************ 


O 



o 



TITLE M7US3*'kEV G* 


NINE TRACK PE/NKZI hAG TAPE T6v (SAP) 


PAGE 41 


/**#*****#**#**#*******#*#******#**##***#****#******#*#*#*******#******* 

* INPUT A FiEX PiLt LlMll FOR USE IN MODES AUK aND W 

* 

OF 7m D3bO I 62 8 MUDEF LNJ $bb»<CKLF DO A UNt FEED 

OF7C 8980 217F CM2 <FluES 

0F7E 0908 BE >MQOEFA B IF t-O-T 

CALL Z.VS1H,FILES REPORT CURRENT HEX FILE LIMIT 

OF 7F FBCO 0003 

OF 81 D3S0 0000 A 

0F83 0F8O 
OF 8A 217F 

OF 8 b 0F8 7 b >MUDEFB 

MODEFA CALL 2V$l*MSEUT PRINT "E-O-T" 

0F8o FbCO 0003 

OF 86 D3bO uOOU A 

0 F 8A OF 80 
OF 8b 223S 

MUDEFb CALL lM $ I.2VSU»MSFILE ASK "FILES ?;" 

OF 8C FbCO 0003 

OFtiL 0380 0000 X 

OF 9u OF 80 
OF 91 223F 

call zvsih,files input file limit (hex) 

UF9* FBCO 0003 

OF94 0380 0000 A 

0 F 96 U F 80 

OF 9 7 2 1 7 F 

0F98 OFfaO 0237 b <NEAl GO bACK 10 »Nt.XT ?;« 

**************************A********************************************* 


( 


c 




TITLE MT053,*ktV G* NINE TRACK* PE/NKLI MAG * T APt T&V UAF) 


PA.^t- - 42’Ur, 


003654 
063653 
003o54 
0Q3o53 
00365b 
0 G 3 0 5 7 
00 36 3 6 
0C3o59 
003o66 
00366 i 
003o62 
003663 
003664 
003663 
0U3666 
003667 
003666 
003o69 
003670 
003671 
0 0 3 6 7 2 
003673 
003674 
003673 
003676 
003677 
003676 
00367V 
003680 
GQ3o8 i 
003682 
003683 
003684 
003683 
003686 
003667 
003688 
003689 
003690 
003691 
003692 
003693 
003694 
003693 
003696 
063697 
003698 
003699 
003 /00 
003701 
003/02 
003703 
003704 
003 703 
003 706 
003707 
063706 
003709 
003716 
06 3 711 
OQ37U 
003713 


003714 
063 /13 
063 716 
0037 17 
063 7 16 
603719 
003 720 
003721 
003 722 
00 3 723 
003724 
003 723 
063726 
06372 7 
603 728 


Op 9 A 
0F9C 
OF 9L 
UF AO 
OF Ai 


OF A4 
OF A3 
OF A3 


OF Ao 
OF A7 
OF Av 
OF Ao 
OF hu 
OFAt 
OF 61 
OF 62 


OF 63 

OF 64 
0 F 63 
0 F 6 7 
OF b9 

OF DA 
OF DO 
OF 66 


OF dF 
OF Cl 
OF C3 


9680 6100 
9FC3 0001 
D380 1030 
3636 
6003 


D675 

OF 00 2186 
8383 


0663 

C370 FU 8 
CFOU 0FC4 
9686 0142 
9FbO 230F 
8670 8 Q 0 F 


0600 

OFFF 


8 734 
0004 

9900 0600 
0960 OF63 
1CFF 

2CE 7 

2/80 oFBb 
4/60 OFbA 


6600 0FC4 
1780 OFBA 
8383 


CFC4 0060 


6FC3 
OF Co 
0 FC / 
0FC9 


0FC6 
OF Co 

UFCF 
oFU 1 
OF 63 
OFDa 
OF 63 
0 F 6 7 

OF 06 
OF 6 V 
OF 6a 


9873 

8231 

C800 6FC4 
uFbO OFBA 


6F80 OFDA 
9F00 OF 66 

FbCO 6003 
6380 6006 
OF fa 6 
OF Db 

6C80 6 FDA 
6383 

0000 

2424 

0000 


663/29 

OFDb 

9836 

2102 

063736 

OF 06 

8 732 

603731 

OFDt 

104b 


663/34 

OF oF 

9976 

0032 

063 733 

OF 1 1 

090A 


66373a 

OF t4 

8 AD2 


063/33 

OF L J 

9970 

0037 

603/36 

OF t5 

0906 


063 /37 

0 F Eo 

6AD2 


063736 

OFL/ 

9970 

0041 

603739 

OF E9 

6902 


663746 

OF EA 

8 AD 4 


00374i 

OF ED 

fa 3 A3 


063744 



663 743 




003/44 




063 /43 

OF EC 

8060 

2163 


OF El 

0666 

22CD 

663/46 

Oh FO 

0 7 F C 


06374/ 

OFF! 

6060 

4lb4 


OF F 3 

0000 

22CC 

603746 

OF F 3 

0 7FC 


063749 

OF F 0 

8 38 3 



003750 
003751 
003 /34 
063753 
003754 
063/53 
063 /36 
0 6 3 7 5 7 
663736 


/******* **************************************************************** 

* SUBROUTINES 

* 

************************************************************************ 

* NON-EX 1STANT RESOURCE, TRAP 15 HANDLER 

# 

$Bl ,<START Rt 51 AkT LOCATION 

a>B 1, Sb3 • 5AF SAVE IN CURRENT TSap 

5bS , <FNEK MI 551 NO RtSOUKCt TRAP 

•66* LABEL2 

RETURN FROM TkAP, 60 TO "NEXT ?;" 

************************************************************************ 

* SET UP ERRuk REPORTING LAbEL 

* 

LABEL EDR 5K3,+5b3 

5TK 3R5,<LABEL1 

6HP 565 RETURN 

************************************************************************ 

* HANDLE RTC kuPT AND CALIB^ATt CLOCK (AT LEVEL 6) 

STOP THE CLOU 


THi5 LAd 
ST b 
LnJ 

FNER 66 DC 
RTT 


RTCFC 


LtVXG 


RTCF 

DiV 

5R4,=-100U 

STK 

j>R4 , <SYNCHC 

LAB 

5b 1,<RESUME 

STb 

561,<SA13P 

LEV 

sZ • 6000 * + 15 

HLI 

b 

>5-1 


TIME FOk 1 MIlL I StC ond 
prepare for Suspend 

SUSPEND TO LEVEL Is 

DIDN’T SET UP FUR SFCONb INTERkUPr 


CL 

= 5R4 

KTCN 

CMR 

SR 1,<ZHRT CC 

be 

<SYnCHA 

LDV 

SRi,=-i 

Luv 

SR2,=-23 

B 1 NC 

SRZ , < 5 

BINC 

SR4,<SYNCHb 


************************************************************************ 

* CALIdRATE Tht CPU FOR ONE SECOND 

* 

SYNCH CL =$K4 LOOPS FOR 1 SuC 

RTCNB KTCN START THE CLOU 

SYNCHRONIZE ThE CLOCK TICKS 
WAIT FOR FlRSl TICk 
IN CASE RTC 6uESN»t RuPT 

-25 

LONG NOP 

COUNT LOUPS/SlC (/MS) 

* IF DOING INITIAL CALIBRATION, SHOULD RuRT OUT uF LOOP TlMEC* 

LUR 5R4,<SYNChC NMBK OF LOOPS/MS 

6INC SR1,<SYNCHb NMBR QF MSECS 

JMP 565 RETURN 

* 

SYNCHC RESV 1,0 NEG NmBR TO kt-INlT FOR 1 MSEC 

************************************************************************ 

* TIMEOUT FOk N MILLISECONDS 

* 

TIME LDK 5R1, + 565 GET NmBR OF MutCS 

NEG = 5Ri 

LDR SR4,<SYNCHC 

b <SY»,CH6 _ „ 

************************************************************************ 

* TYPE OUT ASCII CONTENTS OF kl 

* 

VDTR ST d 5B5,<VDTRb5 

ST k *R1,<VQTRA 

CALL ZV$T,VDTRA 


SET UP FOR FUST MSFC 
TIMEOuT 



LDb 

5b5,<VDTRB5 



JMP 

5b5 

Return 

VDTRA 

RESV 

liO 



DC 

• 55* 


VDTRB5 

KLbV 

5AF,0 


***#***********************************************, 

* DETERMINE 

* 

IF MODE R, W, A OR U 


* 

LNJ 

5B3 ,<RwAu 


* 

"k" 

return 


* 

" w" 

RETUkN 


* 

"A" 

RETUkN 


* 

* 

"U" 

klTUkN 


RWAO 

LDR 

5R1,<DXMD.5R3 

GET MODE 


CL 

~ 5 R 4 . 

index for RETuRN 


SUR 

5 k i , 8 

RIGHT JUSTIFY 


CMR 

5R1,-X»3Z« 

ASCII "R" 


bt 

> K WAUZ 


I nC 

= 5K 4 



CMR 

JR1, = X* 37* 

ASCII "W" 


6L 

>KWAUZ 



INC 

= SR4 



CMR 

5RI, = X*41 • 

ASCII "A" 


be 

>RWAQZ 

RWAQZ 

Inc 

= 5R2 

MUST BE "Q" 

JMP 

563.SR2 

RETURN 


************ 

* GET TWu ST 

* 

INST AT 10 

61 OF 

I STAT 1 10 


************************************************************* 

h I US wORDS 


<STa12,<1NSTW2 
> INS I AT 

<STa 11,<INSTWi 


GET STATUS WOkD 2 


GET STATUS WORD 1 


OFF/ 
OFF 9 
OF F d 
OF F 6 


DF 80 100E 
9C86 2194 
9bCi 0737 
9D80 6000 


DIUF >1SIATI 

JMP 5B5 RETURN 

************************************************************************* 

* GENERA i t RANDOM ADDRESS AdOVE 2 V 5 LR BUT LESS TnAN MxAD 

* (IE, LEAVE ROOM FOR 2048+256 BYTES) 

* RETURN W 11 M RANDOM ADDRESS IN 61, 

* 

GRNADR S|b 5b3 ,<GRNb5 

L 6 b 5 bl ,<RANADR GET 

CRNA LAB 5 bl,561 * 1847 ADD 

CMo 3>bi ,<.ZV5LR 


Old KANDOm ADDrfSS 
A PRIME Number 




TITLE MT0S3, • 

REV u» 

Ml (ME 

TKACk 

PE/NRZI MAG TAPl T6 v (SAP) 

PAGE 43 

003759 

Of-f-f- 

02 7C 




bt 

>GRnA 

B IF )UU SMALL 

003760 

iuou 

906u 

2 1 8 A 



CMb 

$bl*<MXAD 


003 7 61 

1004 

0207 




bL 

>GRnC 

B IF UK 

003 7 62 





* 




W 003 763 

1003 

9bC 1 

F 000 


GRNb 

LAb 

*bl,$bl,-4096 

START UvtR 

1 00376<+ 

1003 

9060 

0000 

X 


CMb 

$B1,<2V$LK 


003 /63 

100 7 

03 7 C 




bo 

>GRhB 

B IF STILL TOu LARgf 

00376b 

1006 

OFF 3 




b 

>GRnA 

START Av,Alh 

00 3 76 7 





* 




003766 

1009 

9F60 

2194 


GkNC 

STd 

$bl,<RANADR 

SAVt NLw RANOuM AOdRFSS 

00376V 

1 00D 

0C6O 

loot 



LDb 

$B3,<GRNb5 


003770 

1006 

6363 




JMP 

$65 

RETURN WITH NuMbER TN 61 

003771 





* 




003 77c 

100 l 

0000 



GRNb 5 

RtSV 

$AF ,0 


003773 





************************************************ ************************ 

003 I 7^ 





* CHECK IF OPlRAIuR WISHES 1U 1 NTLRVENt 

003773 





* 




003776 

10 UF 

OF 80 

102F 


SENSE 

STb 

$bb ,<SENSb5 

save for return 

003 7 7 7 

lull 

dFOO 

2193 



STk 

$R3 *<R3hOLO 

SAVE "UNIT" lNDtX FDR RETURN FROM "NEXT" 

003 7 7b 






CALL 

lVSdkK 

CHECK THL CONSOLE 


1013 

F bFO 

0001 







1 U18 

03bU 

0000 

X 





00377V 

1017 

OCbO 

102 F 



LOb 

4>b3 , <SLNSb5 

RETuR/m AODRtSo FOR IN-LINE RETURN 

003 780 

loiv 

896 0 

OUOO 

X 


CM2 

<2V$oKF 

CHECK the CONSOLE 

003 78 1 

10 1 o 

0913 




bL 

>SEnSB 

b IF NO DREAK, RETURN IN-LINE 

00378c 





* 




003763 

lUlL 

9080 

2186 



LOH 

$R 1 »<LABEL1 

* 

00378* 

1 0 1 L 

104* 




CMV 

$R1,=»D» 

ASCII "0" 

00378 3 

1 U 1 7 

0900 




bt 

>SEnSm 

MODE "0", RES)ART 

003 78b 





* 




003 78 7 

102 u 

Obbu 

023 7 



LAd 

$b5,<NEXl 


003 78b 

1 U44 

8600 

216h 



LbF 

<PFlAG,=1 

CHECK IF MODE "P" AND ClR FLAG 


1024 

0001 







003/89 

1028 

0589 




bbF 

>SEnSb 

b TO NEXT IF ,901 "p« 

003790 





* 




003791 

102 o 

8900 

2 1 6F 



LbT 

<PF'LAG * = 2 

SET bKK-UtTEUEU Fl AG 


1026 

0002 







003 79^ 

1029 

OC80 

1 02 F 



LOb 

$63 *<SENSB5 


003793 

102 b 

Ur 8 3 




b 

>SEnSd 

RETURN IN-LINc. # BKk LATtk UN 

003 79* 





* 




003793 

102 U 

obbO 

0229 


SENSA 

LAd 

$65, <REST RT 

MODE "0”, RES(Art 

003796 

1046 

8 38 5 



SENSE 

JMP 

j>B5 

RETURN SUMEwHuRE. 

00 3 79 7 





* 




003796 

1021 - 

0000 



SENSB5 

KESv 

$AF ,0 

HOLD HEkE 

003 799 





************************************************************************ 

0 0 3 8 0 o 





* LkkUk KLPOk 1 ING SUbkOUTINt 


003601 





* 




00360c 

1 u30 

9875 



FNtk 

Luk 

$R 1, + $b5 

GET MiNQR LABlL 

003b03 

1031 

9 F 00 

2187 



STk 

$R1 ,<LAbtL2 


003b0* 

1033 

OF bO 

10 A A 



STb 

$65,<PNERb5 


003603 

1038 

AbC5 

FFFO 



LAd 

$B2 ,$B5,-2-$AF 

ADDRESS OF "LnJ FnfR" 

003b0b 

1037 

AFbO 

1 07C 



STb 

$b2,<PNERF 

SAVE FUR RtPOkT 

0 0 3 b 0 7 

1039 

8 A80 

2113 


KPkT 

INC 

<ERlT 

TALLY THE ERRuR 

003b0b 

103b 

bFOQ 

2114 



STk 

$R3 *<LRDKIV 

SAVt DRIVE NMuR* Hfx 

003609 

103b 

9830 

20FE 



LOR 

$R1 ,<DXFN.$R3 


003610 

1U3P 

9F00 

2115 



STk 

i»K 1 ,<ERP ILE 

SAVt FILE NMbK, HLx 

f 003b i 1 

1041 

9830 

2 10E 



LOR 

$R1 ,<DXRN.$R3 


1 003614 

1046 

9F0U 

2117 



STR 

$R1 ,<ERKtC 

SAVE RECORD NnBR* HFX 

| 003b 18 

1U43 

9800 

2113 



Lor 

$R 1,<tRCT 


^ 00361* 

104 7 

100A 




CMV 

$kl , = 10 


003618 

1046 

OAUO 

1068 



bAO 

<FNlRA 

b IF TABLE F0 l.L 

003o 1 6 





* 




00361 7 





* SAVE 

ERROR 

PARAmE T ERS FOR MODE " 

j» 

003o 1 6 





* 




0o3o 1 9 

1 U4 A 

9C80 

2170 



LOb 

$bl*<ERTbPT 


00362U 





* 




003ti2 1 

104V. 

9800 

2186 



LOR 

$R1,<LAbtLl 


003622 

1 041 

9F71 




SIR 

$R1 , + $bl 

LABELi* ASCII 

003o23 





* 




003624 

1 Q4p 

9800 

2187 



LOk 

SRI*<LA6EL2 


003623 

1081 

9 F 7 1 




SIR 

$R1, + $bi 

LABEL2 * ASCII 

003b2b 





* 




003o27 

1032 

AFFi 




Sib 

$62 »+ $61 

LOCATION* HEX 

003628 





* 




003629 

1053 

bF 7 1 




STR 

$R3,+$6i 

DRIVE NUMBER* HEX 

003a 30 





* 




003631 

105* 

9830 

20F t 



Luk 

$R1,<DXPN*$R3 


003632 

1U 5 b 

9F71 




STK 

$r i*+$bi 

FILE NUMBER* fitX 

00363a 





* 




00363* 

10 5 7 

9830 

2 1 Ot 



LOR 

$R1,<DXRN«$R3 


003638 

1059 

9F71 




STR 

$R1*+$bl 

RECORD NUMBER* HEX 

003636 





* 




003637 

105 a 

BC8(r 

2163 



LOb 

$63 * <SLDb ' 

- ■ - - • • 

003636 

103c 

bF F 1 




STb 

$B3,+ $bl 

DATA BUFFER, nLX 

003639 





* 




00364U 

105b 

9800 

2 1 b4 



LOK 

$R 1,<STAT1 


003641 

103F 

9F71 




STR 

$R1*+$Dl 

STATUS WURO 1* HEX 

003644 





* 




003b43 

1060 

9800 

2163 



LOK 

$kl,<STAT2 


00364* 

1064 

9F71 




STR 

$R1 , + $Bl 

STATUS WORO 2* HEX 

003643 





* 




003b4o 

1063 

9830 

2106 



LOR 

$R1,<0XPS.$R3 


003647 

1063 

9F7 X 




STR 

$R1,+$B1 

PASS COUNT, LuCIMAl 

Cu3o4c 





* 




003o49 

1066 

9F80 

2170 



STb 

$bl*<ERTbPT 

SAVt POINTER t-UK NfxT ERROR 

003a30 





* 




003a 5 1 





* REPOkT ERROR UNLESS SUPPRESSED 


003a 32 





* 




003653 

1066 

8280 

216b 


FNERA 

Lb 

<SUPRES,= 1 



106a 

0001 







003654 

1 06D 

050U 

1 0A5 



bbT 

<FNtRC 

B IF SUPPRESSlO* IF., RETURN 

003653 





* 




Q03o56 





x THIS 

IS ALSU THt ENTRY POINT FUR 

MODE "P" 

003o57 





* 




003656 

106b 

OF 80 

1 0 AA 


FNERhP 

STb 

$B5,<FNERb3 

HOLD bt> FOR KlTURN 

003659 

1061- 

8900 

2116 



LdT 

<ERRFLG,=1 

CHECK "FIRST t.RROR•• Fl AU 


1071 

0001 







0 0 3 6 6 0 

1074 

0507 




bbT 

>FNtKb 

B IF AN ERROR ALREADY REPORTED 

fr 0036 61 






CALL 

ZV$UZV$TC,MS4tAD 

(tKROR rtEAOINvj) 

I 

1073 

FbCO 

0003 







1073 

0380 

0000 

X 






1077 

0 F6u 








1076 

2 1 FA 
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00366 * 

1079 

0360 

0000 

X 

FNORB 

LNJ 

$ 65 ,<ZV$ER 

REPORT ERROR LABEL AND LOCATION 


003663 

1 U 7 b 

0 F 6 3 




0 

>FNtKE 



003 b 64 

107 C 

0001 



FNORP 

RtSV 

$AF 9 1 

ERROR LOC 


003663 

1070 

2166 




PC 

<LAdEL 1 

LABEL 

£ . \ 

003 b 6 o 





FNORO 

CALL 

ZVSIH.ZVSTDfEkPRIV 

REPORT ORIVE lUNIT) 

1 1 


lU 7 t 

P OCO 

0003 






V> 


1080 

0360 

0000 

X 






10 8C 

OP 80 









1083 

2114 








003667 






CALL 

ZVSTHtERFILE 

REPORT FILE 



1084 

FBCO 

0003 








l060 

0360 

0000 

X 







1068 

OF 60 









1089 

2113 








003 o 66 






CALL 

ZVSIH»ERREC 

REPORT RECORD 



106 A 

FOCO 

0003 








106 L 

0360 

0000 

X 







108 E 

OP 60 









106 F 

2117 








003669 

1090 

0360 

145 F 



LNJ 

$b 3 »<BLANKS 

PRINT TWO BLANKS 


00367 c 





FNORG 

NULL 




003673 


Ct-UVi 




CALL 

ZVSfH.ZVSTHZ,bLDB*iAF-UDCbS (REPOkT DATA BUFFER LOCATION) 



1094 

0360 

0000 

X 







1096 

OF 60 









109 7 

2103 









1096 

20 P 2 








0036 74 






CALL 

cV$JH.ZV$THZ*STATi 

REPORT STATUS WORD \ 



1099 

FOCO 

0003 








1090 

0360 

0000 

X 







1090 

OF 60 









1090 

2 lb 4 








003673 






CALL 

ZV$rh.ZVSTHZ» 0 TAT 2 

REPORT STATUS WORD ? 



109 F 

POCO 

0003 








10 A 1 

0360 

0000 

X 







10 A 3 

OP 60 









10 A 4 

2103 








003676 





* 





003677 

10 A 3 

0360 

100 F 


FNORC 

LNJ 

Sb 3 * cSLNSE 

CHECK PUR "NEaT ?;» 


003676 

10 A 7 

OC 60 

10 AA 


FNORO 

LOb 

3 >B 5 * <FNtRb 5 



003679 

10 A 9 

6363 




JNP 

3.05 



003660 





* . 





003661 

10 AA 

0000 



FN 0 RB 5 

KLSV 

$AF ,0 

SAVED RETURN ADDRESS 


00366 c 





***************************** *********** ******************************** 


003683 





* RESET RETRY 

ANO DATA ERKOk FLAGS 



00 3 6 84 





* 





003683 

10 AO 

6700 

20 P 4 


RSET 

CL 

<OEPL 

CLEAR FLAGS 


003686 

10 A 0 

6700 

2 1 Ac 



CL 

<RTP L 



003687 

1 OAF 

1 CF 6 




LOV 

$R 1 * = -8 



003686 

1000 

9 F 00 

20 P 3 



S PR 

3 )K 1 * <oecn 

COUNT UP TO 6 DATA FRROkS PER TRY 


003689 

lobe 

0368 

2 1 A 3 



LNJ 

$B 5 **<RTRN 

DO ROUTINE PRIOR To RFTRY 


003690 

1 004 

6386 

21 A 4 



JNP 

*<RTRY 

GO TO RETRY LuCATIon 


003691 





************************************************************************ 


00369 c 





* SET 

UP PRI uk TO READING Ok OUINu 

A TEST INVOLVE RfaDING 


003693 





* 





003894 

1 0 b 6 

1 CP 6 



SET 

LOV 

$Rl 9=-8 



003693 

1007 

9 F 00 

2 0 F 3 



STR 

3 >R 1 i <DECN 

ALLOW 8 DATA eRRORs 


003696 

1009 

1 CFG 




LOV 

$k 1 » = -4 


& J 

003697 

1 U 0 A 

9 P 00 

21 A 1 



STR 

$Rl,<RTCN 

ALLOW 3 TRIES/RETRIFS 


003696 

100 C 

6 700 

20 F 4 



CL 

<OEPL 

DATA tRROR PLaG FOR FIRST ERROR 


003899 

lOOo 

6700 

21 A 2 



CL 

<K 1 PL 

RETRY FLAAG 


00390 O 

iOCu 

6363 




JNP 

$B 5 

RETURN 


003901 





************************************************************************ 


00390 c 





* 





003903 





* RETRY ROUTINES 



003904 





* 





003903 





*- - - 

- _ - _ 




003906 

10 C 1 

6366 



kT 2 

JNP 

066 

NOP ROUriNt PuR handlfR 


003907 





*- - ~ 





003906 

lOCc 

8383 



RT 4 

JNP 

$65 

DO NO 1 hING 9 JuST Hp TURN 


003909 





*- - - 





003910 

10 C 3 

OP 60 

1000 


RT 5 

OTb 

3 > 05 ,<RT 5 b 5 

(OSR/bSK/FSk/tRA) 


003911 

10 L 3 

0360 

1420 



LNJ 

$ 65 ,< 0 SRW 



00391 c 

10 C 7 

0360 

142 b 



LNJ 

$b 5 ,<BSRW 



003913 

10 C 9 

0360 

13 C 1 



LNJ 

$B 5 »<PSKw 



003914 

1 OCo 

0360 

1340 



LNJ 

$B 5 9 <ERAW 



003 vl 3 

10 CO 

OCbO 

1000 



LOO 

$65 9 <RT 563 



0 0 3 9 1 6 

10 CF 

6363 




JNP 

$B 5 



003917 





* 





003916 

1000 

0000 



KT 5 B 5 

KLSV 

$AF 9 0 

RETURN AOORESj 


003919 





*- - - 

_ _ _ _ 




003920 

1001 

0 F 60 

100 C 


RT 6 

STO 

$B 5 »<RT 6 b 5 

(BSR/pSR/FSR) 


003921 

iUOjr 

0360 

1420 



LNJ 

$b 3 « <OSRW 



003922 

1003 

0360 

1420 



LNJ 

$B 5 * <bSRW 



003923 

100 7 

0360 

130 



LNJ 

$65 9 < F SRW 



003924 

1009 

DC 60 

100 C 



LOb 

$B 5 9 <RT 6 B 8 



003923 

100 b 

6368 




JNP 

3 »B 5 



003926 



• 


* 





003927 

100 G 

0000 



RT 6 B 3 

KtSv 

SAP 9O 

Return aodreSj 


003926 





*************************** ********************************************* 


003929 





* ABORT ROUTINES 



003930 





* 





003931 

1000 

6363 



A 0 R 3 

JNP 

$65 

(NOP) 


00393 c 





************************************************************************ 


003933 





* WRITE A RECORD 



003934 





* 





003938 

loot 

9675 



WREC 

LOR 

$R 1 9 +$65 

GET DaIA 


003936 

loop 

9 F 00 

2190 



STR 

$R 1 9 <PTRN 

SAVE IT 


003937 

10 E 1 

9873 




LOR 

$R 1 9 ♦ $65 

GET RANGE 


003936 

lOtc 

9 POO 

2190 



STR 

$R 19 <RNG 

SAVE IT 


003939 

10 E 4 

9 CP 5 




LOO 

Sbl 9+$05 

get buffer aojRlSS 


00394 U 

10 03 

9 F 60 

2103 



SI b 

$B 1 9 < SLOb 

START OF CUkkuNT OaTA BUFFER 


003941 

1007 

9 P 60 

12 C 2 



ST 0 

$61 9 < 1 SbSb 

SB bUPFEk PN'lK FOR T SR CHECK 


00394 c 

1009 

9 CP 5 




Lub 

$619 +$65 

RETRY ROUTiNE POINtfR 


003943 

100 A 

9 P 60 

2 1 A 3 



STO 

$61 9 <KTRN 



003944 

10 EC 

9 CP 5 




LOb 

$B 1 9 *$65 

RETRY LOCATION POINTER 


003943 

1000 

9 F 80 

21 A 4 



STB 

$ 619 <RTRY 



003946 

ioEr 

9 CP 5 




LOb 

$61 9 +$B 5 

AbORT ROUTINE POINtfR 

Jf "'"x 

003947 

10 FO 

9 P 80 

2006 



ST b 

$61 9 <A 6 kN 


m ^ 

003948 

1 OP 2 

9 CP 5 




LOO 

3 »b 1 9 *$B 5 

ABORT LOCATION POINTER 

m w 

003949 

1 0 p 8 

9 P 60 

2180 



sro 

SB 1 9 <NT ST 



003930 





* 





003931 

1 OF 3 

OP 60 

1140 



STO 

$05 9 <WREC 65 

RETURN AOORESj 









PAGE 45 
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003954 

003953 

003954 

003955 

003956 

003957 
00395b 
003959 
003960 
003961 
U0396* 
003963 
003964 
003965 
003966 
003967 
00396b 
003969 
003970 
003971 
00397* 
003973 
00397* 
003975 
00397b 
003977 
00397b 
003979 
003980 
003981 

G0398Z 

003983 

003984 

003985 

003986 

003987 

00398b 


003989 

003990 

003991 

003992 

003993 

0u3*94 

003995 

003996 

003997 

00399b 

003999 

0U4o0o 
004001 
0 0 4 0 0 2 
004003 
004U04 
004005 
004o0b 
004007 
004o0b 
004009 
004010 
00401i 
004012 
004013 
004014 


10 F 7 
10F9 
lOfo 


0380 OFEC 
8280 <21B4 
8000 


113b 

1139 
113o 
USD 
113t 

1140 
1148 

1144 

1145 

1147 

1148 
114a 
1140 


0001 

9800 

9970 

0988 

9800 

9630 

9970 

0904 

D380 

3135 

0380 

DCbO 

b385 


21b4 

8000 

2ib5 

20FA 

8000 

1030 


100F 
1 i4t> 


1140 0000 


* PARAMETERS 

* 

uw 

Lb 


HAVE NOW BEEN PASSEO 0N» NEXT FILL oUFFtk AND WRITE* ETc. 


Sb5,<INSTAT 
<STmT1* =2 •8000 * 


1 OF C 

0504 



BbT 

>WRtCA 

ioFD 

D3b0 

1030 


LNJ 

Sb5 *<FNtR 

1 OF F 

313b 


FNEKi8 

DC 

• 18* 

1100 

D380 

114E 

WRtCA 

LNJ 

$B5 * <F WB 

UOZ 

9080 

Z 1 86 


LDH 

Ski* <LABELI 

1104 

1D41 



CMV 

SR I * - * A* 

1105 

0980 

1115 


BNt 

<WR»_Cb 

110/ 

9600 

Z 186 


LDR 

SRI*<LAbtLl 

1109 

9970 

4550 


CMR 

SRI*=•EP* 

110b 

0900 

1115 


BE 

<WRpCB 




* NOW 

STORE 

FILE AND RECORD 

HOP 

9C60 

Z1B3 


LDb 

SB 1*<SLDb 

11 OF 

9830 

ZOFE 


LDR 

SRI*<DXFN«SR3 

mi 

9F71 



STk 

Ski♦ ♦Sbl 

illZ 

9830 

Z10E 


LDR 

SRI*<DXRN«sR3 

1114 

9F71 



STR 

SR1*+SB1 

1115 

D380 

OFDb 

WRECB 

LNJ 

SB5,<RWAQ 

1117 

OF 8 7 



B 

>WRtCC 

nib 

OF 8b 



b 

>WRtCD 

1119 

0F7F 



NOP 

>$-l 

111A 

bZbO 

Z0E7 


Lb 

<AUFL * 51 

me 

0001 





hid 

0583 



BbF 

>WRtCD 

lilt 

OFbO 

1148 

WRECC 

B 

<WRtCI 




* NOW 

WRITE 

the data* wait i 

11 zo 

bABO 

Z10E 

WRECD 

INC 

<DXkN# SR3 

1 124 

BIBB 

Z1B3 

WRtCE 

I OLD 

*<SpOb*<IOWKI 

11Z4 

0000 

ZZbC 




1 lZo 

0000 

Z 19t 




llZb 

Q7FA 



biOF 

>WRtCE 

11Z9 

8000 

42 A4 

WRtCF 

IQ 

<write*<ottas ! 

11 Zb 

0000 

2ZCZ 




H ZD 

07 F C 



BIOF 

>WRtCF 




* WRITE has 

* 

btGUN* WAIT FOR 

H ZL 

P380 

177 b 


LNJ 

3>B5 »<WA1T 

113U 

D380 

OFEC 


LNJ 

SB5,<INST AT 

1134 

8800 

Z1B4 


LBF 

<STaT1*^2*010! 

1134 

0100 





li 35 

0584 



bpF 

>WRtCG 

1136 

8900 

2112 


LbT 

<E0 fF LG * = I 


ROY biT 
B IF READY 

NOT ROY WHEN AbOUT TO WRITE 
LABEL2 

FILL WRITE BUFFER 
GET LEFT HALF OF LArtEl1 
IS IT NODE "A"? 

B IF NOT DATA TESTS 

IS IT "END-PAuS" ? 
b IF END-PASS* OONiT CHANGE DATA 


BUFFER ADDkESb 

GET FILE NMbR 

FIRST TWO bYTcS OF RECORD 

GET RECORD NMbR 

SECOND TWO BYTES Of RFCORD 

MODE? 

R, RETURN WITriOUT WRITING 
W* WRITE 
A 

Gt ChtCK IF Au TEST 

b IF NOT AU* lE.* WRITE 
RETURN WlTHQUi WRITING 


BUMP RECORD CuUNTtR 


WRITE 


i * CHECK FOR STATUS ERRORS 

WAIT FOR RANGc RUNOUT 
GET STATUS 
CHECK FOR EOT 


;ot 

AG 


WRECG 


LDR 
CMR 
dNE 
LDR 
XOR 
CMR 
BE 

wRECh LNJ 
FNER15 DC 

# 

WRECI LNJ 
LDb 
JMP 

* 

WRECE5 KtSv 


SRI*<STAT1 

SRI*=Z»8000* 

>WRtCH 

SRI * <STAT2 

sRl*<DXDENS.$*3 

SRI*=2•8000 * 

>wR t cn 

sB5,<FNEk 

*15* 

Sb5 * <SENSE 
$B5 *<wRECB5 
SB5 

SAP *0 


0 04U I 6 





* FILL 

WRITE 

bUFFt-R 

004017 





* 



00401b 

114t 

OF 80 

118C 


F Wb 

STb 

S65 *<FWBB5 

004019 

n 50 

9C80 

21B3 



LDb 

$B1*<SLDb 

004UZ0 

1154 

9800 

2190 



LDR 

SRi*<PTRN 

004U2I 

1154 

9970 

5244 



CMR 

SRI*=*RP* 

004024 

115o 

0900 

H6F 



bt 

<F WuB 

004023 

115b 

9970 

OOA9 



CMR 

SRI*sX»A9» 

004024 

H 5 A 

0900 

1167 



bt 

<F WoF 

004025 

H5C 

9970 

0056 



CMR 

SRI*=X'56* 

U04o2o 

115b 

0900 

H67 



bt 

<FWdF 

004027 








00402b 





* FILL 

BUFFER 

WITH FIXED DATA 

U040Z9 





# 



004b 30 

1160 

8 7 52 




CL 

= SRZ 

004U31 

1161 

97 tU 



FWBA 

STH 

SR I * Sbl•+sR2 

00403* 

1104 

A900 

219E 



CMR 

SR2 * <RNG 

004033 

1164 

027D 




bL 

>FWdA 

0U4O34 

1165 

OFbO 

1183 



b 

<FWbC 

004035 





* 



004036 





* FILL 

WRITE 

bUFFc-R WITH CHtCK 

004o37 





* 



00403b 

H6 7 

8 752 



F WbF 

CL 

sSkZ 

004U39 

1 108 

9 7 ED 



FW'bG 

STH 

SRI*SB1•♦SRZ 

0O404U 

1169 

8o 51 




CPL 

= SH i 

UU404i 

11 6 A 

A90U 

219E 



CMR 

*R2 *<RNG 

Ou4o4* 

llbL 

027C 




BL 

>FWdG 

004043 

lloD 

0F80 

1183 



B 

<.FWBC 

004044 





# 



004O4 5 





* FILL 

WRITE 

bUFFt-R WITH RANDt 

0U4U46 





* 



0 0 4 0 4 7 

lioF 

9830 

20 Ft 


F WBB 

LDR 

SRI*<DXFN«SR3 

00404b 

1171 

9 A30 

210 E 



ADD 

SRi *<DXRN#SR3 

00*049 

1173 

9F00 

0000 

X 


STR 

$R 1 *<;Z VsFRb 

004U50 

11 75 

8754 




CL 

==SkZ 

004O5l 





FWBE 

CALL 

ZVSFR *TEMPA*DCI 


117o 

FBCO 

0003 






117o 

o380 

0000 

X 





11 /A 

OF 80 







117b 

2 1 b7 







11/c 

40EC 






00405* 

117p 

9800 

2 IB 7 



Lpk 

SRl* <TEMPA 


MWfI 

GET FIRST STAfUS WORD 
RDY 

B IF STATUS No 

MASr WITH density btt 
ON-LINE 
B IF OK 

STATUS NG AFTtR A "WRITE" OPERATION 
LABELZ 

NEXT? 


RETURN ADDRESo 


BUFFER ADDRESS 
GET DATA PATTERN 
RD 5 RANDOM DmTA 
B IF RANDOM DmTA RFQUiRED 

B IF CHECKEk-uOARD PATTERN REUUIReD 

B IF cHECKER-oOaRD PATTERN REQUIRED 


USE KZ AS INDlX THROUGH BUFFER 
STORE THE DAT* 

KEEP FILLING 

DATA pONE* PAp REST OF bUFFER 


CLEAR INDEX 
STORE THE DATh 

INVERT DATA Ip FORM CHECKER-BOARD 

B IF NOT FILLED YEt 

DATA DONE* PAp REST OF BUFFER 


T FILE NMBR 
D REC NMbR 


Gt 

ADl ... _ 

SAVE AS RANDOM SEED 

clear index 

GET A RANDOM uMBR 
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004053 
004054 
004055 
00405O 
00^+057 
00405b 
004059 
004060 
004U61 
004 062 
004063 
004U64 
004U65 
00AU6O 
004067 
004066 
004069 
004070 
004071 
004074 . 
004073 
004074 
004075 
00407b 
004077 
00407b 
004079 
004080 
004081 
004084 
004083 
004084 
004085 
004086 
004087 
004088 
004089 
004090 

004091 

00409c 

00409b 

004094 

004095 

004O9b 

004097 

004098 

004099 

004100 

004101 

004104 


004103 

004104 

004105 
00410o 
004107 
004108 
004109 
0041lo 
004111 
0041 IE 
004113 
004114 
004115 

00411b 

004117 

004118 
004119 
0041Z 0 
004121 
00412c 
004123 
004124 
004125 
004126 
004127 
004128 
004129 
004136 
004131 
004132 
004133 
004134 
004135 
004136 
004137 
004138 
004139 
004140 
00414 1 
004142 
004143 
004144 
004145 
004146 
004147 
00414b 

004149 
004150 
004151 
00415c 
004153 
004154 
004 i 55 
004156 
004157 
004158 
004159 
004160 


1178 

1180 

1182 


1183 

1185 

1186 
11 ob 

1189 

llOD 


97 tO 

A900 219E 
0274 


9870 GOFF 
97 to 

A970 0900 
0270 

DC60 118C 
8385 


STH SRI ,$bi.+$R2 

CNR $R2 * <RNG 

bL >FWbE 


STORE THE UATa 
B IF NOT FILLED YET 


116C 0000 


1180 
1 1 81 
1196 
1191 
1193 
1198 
1196 

1198 

1199 
119b 
119G 
1 19t 
I19F 


9875 
9F00 
9CF5 
9F80 
9FbO 
9CF 5 
9F80 
9CF5 
9F80 
9CF5 
9FbO 
9CF 5 
9F80 


2 191 

c 103 
UAF 

2 1 A3 

21A4 

20E6 

218b 

11A1 OF 80 11CF 


11 A3 
UA5 
11A 7 
11A8 
UA9 
UAd 

11 AC 
1 i At 
UAF 
libO 
1161 

llbc 

ilb4 

llbb 

1108 

I IbA 

HBb 

II bo 
HbF 


iiCO 

ncc 

1 1C4 


1 1C6 
11C8 
11CA 

HCC 

UCt 


0380 

8280 

8000 

0504 

0380 

3136 

0380 
OF 84 
1C66 
2 1 OF 
2189 

8AbO 
8 1C8 
0000 
0000 
07 FA 
8000 
0000 
07FC 


OFtC 

21b4 

1030 

0000 


210E 
OF F t 
22bd 
2 19t 

229F 

22C2 


0380 177b 
0380 1480 
0380 100F 


9C80 12C2 
AC80 21B3 
0380 123F 

0C80 11CF 
6385 


HCF 0000 


UD0 

1101 

1103 

1104 
11 Do 
1106 

IIOA 
1106 
1100 
11 Oc. 
11 OF 
llLO 
lit! 
1 112 


11E3 

1115 
11 to 
lit/ 

1116 

iiK 

lltC 


HEt 
11F 0 
HF2 
11F3 
HF4 
UF5 
UFb 


9875 

9F00 HOC 
9875 

9F00 UDO 
9F00 11F2 
OF 80 12:01 

0380 100E 
0000 
0000 
1 YEb 
1 0C3 
11OA 
1000 
UFb 


0380 OFDb 
OF 89 
OF 98 
0F7F 

8280 20E7 
0001 
0503 

0380 142b 


0380 10B6 
0380 1180 
0000 
1C66 
1 GDI 
UFO 
1000 


NOW FILL RES] OF BUFFER WITH ALL X»FF» 


F'WB 


* 

FWBB5 


LOR $R1, = X•FF * 

STH $R 1 » SB 1* + $R2 

CMR $R2,=2*(1024+128) 

bL >FWuD 

LOb Sb5,<FWBb5 

JHP $B5 


GET DATA 
STORE OATA 
BUFFER SIZE, 
KEEP FILLING 


pYTES 
ULL DONF 


FORM RETURN AmORESs 
RETURN 


RLSV $AF,0 


RETURN AODRESd . 

** ***** ************ it******* *********** ********** ********* *********** 

* READ A RECORD AND CHECK OATA 


KREC 


LOR 
STR 
LOb 
STB 
STb 
LOb 
S | B 
LOb 
STB 
LOb 
STb 
LOb 
STb 

STb 


SRI»+$B5 
$R 1, <RNG 
$B1,+$65 
$B1,<3LDb 
$Bl,<RRECb6 
$Bi,+$B5 
$ 61 ,<RTRN 
Sbl,+Sb5 
$B1*<RTRY 
Sbl ,+ Sd5 
$bI, <ABRN 
$61, + $65 
$B1,<NTST 

$65,<RRECb5 


GET BYTE RANGc. 

SAVE IT 

GET READ BUFFER APR 
SAVE IT 

ALSO FOR FILL RQUTlNF 
POINTER TO... 

MSM:* 

ABORT ROUTINE 
POINTER TO. .• 

ABORT LOCATION (NEXT TEST) 

save return address 


* PARAMETERS PASStD, NOW PRELOAD BUFFER, THEN READ AND CHECK. 

LNJ 
Lb 

BoT 
LNu 

FNER16 DC 

* 

KRLCB 


RRECBb 


RRECBA 

RRECC 


LNJ 

Be 

DC 

DC 

INC 

lULD 


blOF 

RRECD iu 


$65,<INSTAT 
<STaT 1,sZ»8000* 

>RRcCB 
$b5,<FNER 

» 16« 

$B5 ,<zV$F 
>RRtXbA 
<R6UF 
<X3333 
<LEi+GT H 

<DXRN*$R3 

*SLDb,<IQRLAD*<RNG 


>RRbCC 

<REaDFD,<OTTASK 


GET STATUS 


B IF UK 

SHOULD BE RDY PRIOR TO READ 
LABEL2 


bIOF >RRtCD 


* CHECK STATUS 

* 

LNJ 
Ln J 
LNJ 

* 

* CHECK OATA 

* 

LOb 
LOb 
LNu 

* 

LOb 
JHP 

RRECB5 KtSV 
****************** ********* 

* wRITt A KtCORO, BACKSPACE 

* 


$B5,<wAIT 
$b5, <ERCK 
$B5,<SENSt 


SBI,<ISBSB 
SB2,<SLDB 
SbS,<I SB 

SB5,<RRECB5 

SbS 

SAF,0, 


FILL THE BUFFER 

BUFFER 

DATA 

RANGE 

INCREMENT RtCuRO COUNTER 


(START TO REAu) 


WAIT FOR READY 

CHECK STATUS pRRGRs. FTC. 

NEXT? 


ONES 


* 

QNLSA 

ONESb 

ONESC 


LOR 

STR 

LOR 

SIR 

STR 

STB 

LNJ 

RLSV 

RLSv 

DC 

DC 

DC 

DC 

DC 


SRl ,'♦'$65 
$R1,<ONESB 
SRi,+SB5 
SRI ,<ONESC 
$R 1, <ONESF 
Sb5 *<QNLS65 

Sb5,<WREC 
1,0 
1,0 
<W6uF 
<RT 5 
<ONtSA 
<ABK3 
<QNtSG 


NOW CHECK HUDt 


LnJ 

b 

b 

NQP 

Lo 

bBT 

LNJ 


$B5,<RwAU 

>ONtSD 

>0NlSH 

>ONLSD 
SB5, <BSRW 


* NOW READ ANO CHECK DATA 


ONLSD 

UNLSE 

ONLSF 


LNu 

LNJ 

RLSv 

DC 

DC 

DC 

DC 


SB5,<SET 

$65,<RREC 

no 

<RBuF 

<RT6 

<UNESE 

<AbK3 


POINTER JO SB (SAVFD DURING WRITE) 
POINTER TO m Is” buffer 
CHECK THE OATh 

RESTORE RETuRim ADDrfSS 
RETURN 

RETURN ADDRESu 
********************************************* 
READ IT AND CHECK DaTA 

GET DATA PATTERN 

GLT BYTE RANGp 


SAVE RETURN ADDRESS' 

WRITE RECORD 
DATA 

BYTE RANGE 
WRITE BUFFER 

RETRY ROUTINE (bSR/RSR/FSR/ERA) 
RETRY LOCATION 
ABORT ROUTINE (NOP) 

ABORT LOCATION 


MODE? „ 

R, GO ON AND kEAD 
W, RETURN, NO READ REQUIRED 
A, GO AHEAD WiTH RfaD BUT FIRST.*. 
Q, SEE IF IN aU TEST 

B OVER BACKSPACE If TFST AU 
BACKSPACE A RtCORD. WAIT 


SET UP FOR READ 

READ A RECORD 

BYTE RANGE 

BUFFER AUDktbo 

RETRY ROUTINE (BSR/rSR/FSR) 

RETRY LOCATION 

ABORT ROUTINE (NOP) 
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0U4 J.61 

lie/ 

11F fa 



DC 

<ONbSG 

abort location 

OU4162 




it 




U 0 H 1 fa 3 

iif-8 

8280 

4017 

ONESG 

Lb 

<AUFL * = 1 

CHECK IF TEST AU 

# 

UFA 

OOu 1 






■ 004164 

11 Fd 

0683 



bbF 

>UNl3H 

6 IF NOT AO T i»3T * RFTURN 

% ^ 00*165 

1 iFC 

0380 

0B9b 


LNJ 

$b5 *<AU6 

RETORn TO TEbl AO 

004166 




* 




004167 

11 Fl 

0080 

1201 

ONtSh 

Lub 

$b5 * <0NESb5 

SET OP FOR RETURN 

004i66 

1200 

8365 



JMP 

*B5 

return 

U04 j.69 




* 




0041 ru 

1201 

0000 


0NLSb5 

Resv 

$AF *0 

RETURN ADDRESS 

GO*171 




#************* ********************************************************** 

004i7 4 




* WRITE* KtAO AND CHECK A kANDQM 

LENGTH RECORD Or RANDOM DATA 

004173 




* 




004174 

1404 

OF 80 

1231 

KLO 

bib 

$B5»<KLDb5 


004173 

1 2 U4 

9830 

20Fb 

kLoA 

LOR 

$R1*<DXFN.$k3 

FILE COUNT 

004176 

i 4 U 6 

9 A30 

2 lOt 


ADO 

$k1* <DXRN.$R3 

RECORD COUNT 

004177 

1406 

9 F 0 0 

0000 X 


STR 

$R1 * <2V$FRb 

USE SUM AS bA^E FOr RANDOM NMBR 

00417b 





CALL 

ZV$F R * WBUF*DC32 

GET SOME RANDuM NUMBERS 


1 4 0 A 

FbOo 

0003 






UOC 

0380 

0000 X 






1 4Ut 

0F80 







120F 

1706 







iciO 

2UF 0 






004179 

1411 

9800 

1 ti05 


LOR 

$kl *<WbUF>31 

GET AN ARBITRARY NUMBFR 

004186 

1213 

9570 

07 FF 


AND 

$R1*=2047 

TRUNCATE TO 2u47 BYTES 

004161 

1413 

8 AD 1 



INC 

= SR i 

FORM TRIAL RAnGE* 1-2048 BYTES 

00* 184 

1216 

1012 



CMV 

Ski * = 18 


004183 

1217 

0882 



BAOE 

>RLob 

B IF 18 OR GRc-AFER 

004184 

12 1 o 

Itl2 



ADV 

$k 1 * = 18 

MAKE RANGE AT LEAST 18 

004i83 

121 9 

9F00 

1220 

KLOb 

SIR 

$R1* <kLDC 

RANGE FOR WREu 

U04186 

1 4 ID 

9F0O 

1233 


6 1 R 

$R1*<RLDF 

RANGE FOR RRE^ 

00418 / 




* 




0 0 4 i 8 6 




* RAfsDOM kAN 

uE ANo bAbL J05T DONE 

* NOW WRITE RECuRD 

004189 




* 




004190 

1210 

0380 

loot 


LNJ 

$b5 *<WkEC 

WRITE A REcOku. 

004191 

12 IF 

5244 



DC 

• RD» 

RANDOM DATA 

00*194 

1240 

0000 


kLoC 

KESV 

1*0 

BYTE RANGE 

004193 

1221 

1 7L6 



DC 

<WbuF 

BUF ADk 

004194 

1442 

1003 



DC 

<RT3 

retry routine (bsr/rsr/fsr/era) 

004196 

1423 

1204 



DC 

<RLOA 

RETRY LOCAIIOm 

004196 

1224 

100 0 



DC 

< ABK3 

abort routine <nop) 

004 19 f 

1223 

123b 



OC 

<RLOG 

ABORT LOCATION (ENd OF TEST) 

004198 




* 




004199 




* CHtCk FOR 

MODE 


UU*40o 




# 




004401 

1226 

038U 

OFOb 


LNJ 

Sb5 *<kWAO 

MODE? 

004^0^ 

1446 

UF89 



b 

>RLoD 

R* CONTINUE WiTH RfAD 

004^03 

12 ci 

OF 9 c 



b 

>RLOG 

W* RETURN* SKiP THf RFAD 

OQ 44 O 4 

12 2A 

0 F 7 F 



NOP 

>$-l 

a* see if IN t EST AU 

004403 

122b 

8280 

20b f 


Lb 

<AUF L * s1 

0* DITTO 


12 4U 

UOOi 






004t,0o 

1 4. 4 L 

0503 



bbT 

>RLOD 

B IF TEST AU* DON»t BACK-SPACE 

004207 

122F 

0380 

142b 


LNJ 

4»65 * <B3RW 

BACK A RECORD 

004406 




* 




4 004409 




* READ 

AND CHECK OATA 


I 004410 




* 




1 004411 

1431 

0380 

1066 

RLOD 

LNj 

$65* <SET 

SET OP FOR REaD 

^ 004414 

1433 

0380 

1180 

RLDE 

LNJ 

$65 * <RREC 

READ 

004213 

12 33 

0000 


RLoF 

kbbv 

1*0 

BYTE RANGE 

G04<_ 1 4 

1236 

1066 



DC 

<RbOF 

BUFFER 

004216 

123 / 

iOol 



DC 

<RT6 

RETRY ROUTINE ( BSR/ftSR/FSR ) 

004416 

1236 

1233 



DC 

<RUoE 

RETRY LOCATION 

004417 

1 43v 

1 Qbo 



DC 

< AbK3 

ABORT ROUTINE (NOP) 

004416 

123A 

1 4 3 b 



DC 

<RLOG 

ABORT LOCATION (ENd OF TEST) 

0044 1 9 




* 




004420 

123b 

0080 

123t 

KLOCj 

LDb 

$B5 * <RLDfa5 

RESTORE KETUR.* ADDRFSS 

00442i 

123b 

8385 



JFiP 

$B5 

RETURN 

004444 




* 




004223 

1 4 3L 

0000 


RLDB3 

RlSV 

$AF *0 

RETURN ADDRESS 

00*224 




* it it it it it it it it * # it ft* * it it * it it * * * it * it it K it it it it it it * it it it it it it * * * it * * it * * it * it * * it it * * ***** ***** ** it 

004426 




* CHECK FUR 

LnU-OF-PASS AND CHECK 

DATA (bl->Sb* o2->IS ) 

004426 




it 




00*227 

123F 

OF 80 

12C4 

ISb 

bib 

$B5 *<1bbb5 

SAVE ob FOR RETURN ADDRESS 

004228 

1241 

9F80 

12C2 


bib 

$B1* <1bBbb 

POINTER TO "ShOULD-RE” DATA 

004c 2 9 

1243 

AF 80 

12C3 


bib 

$B2 *<IbbIS 

POINTER TO »U M DATA 

004430 

1243 

9802 



LDR 

$R1*$B2 

GET ”IS'» FlRSl TWO RYTEb 

G04431 

1246 

9944 

0001 


CMk 

a>R 1 * $62 • 1 

COMPAkt TO NEXT TWO BYTES 

004434 

1446 

09b0 

1261 


bNE 

< I bob 

B IF NOT END-uF-PAsS 

004433 

124m 

9970 

FFFF 


CMk 

$R1*=Z»FFFF» 

COMPARE TO E-u-P INDICATOR 

004434 

1240 

0980 

1461 


bNE 

< 1 Stob 

B IF NOT E-O-P 

004433 

1241 

9800 

2186 


LOR 

$R1*<LABEL1 


004436 

1250 

9970 

4444 


CMR 

$R1*=«DD* 

CHECK- IF DEBUu MODFi'LINK "D”- * 

004237 

1254 

0900 

1261 


bE 

< 1 Sob 

B IF M DD" MODu 

004438 

1254 

1048 



bOR 

$R 1 • b 


004439 

12 5 3 

9 1 F 0 

5420 


CMH 

$R1 * = •T • 


004440 

123 } 

0900 

1261 


bE 

< I Sob 

b IF T1-T9 

004241 

1259 

038U 

OF Db 


LNJ 

$B5 * «RWAU 

CHECK WHICH MuDE 

004242 

145b 

0 F 7 F 



NOP 

>$-l 

R 

004443 

1450 

OF b 3 



b 

> 1 SoA 

W 

004244 

125b 

0F7F 



NOP 

>$~1 

A 

004248 

125E 

OF 83 



B 

> l SdB 

0* CONTINUE WITH DATA CHECK 

004446 

12 5 F 

OFbO 

Qbb4 

ISbA 

b 

<NDPS 

END-OF-PASS DcTECTFD IN MODE R/W 

004447 




it 




004248 




* NOW 

chlck 

DATA 


004249 




it 




0044 50 

1261 

8752 


I Sbb 

CL 

= $R2 

clear index Through wbuf and rbof (also rng) 

004451 

1264 

b2 Ab 

12C2 

ISbC 

LLH 

$R6**<ISbS6.$K2 

get m sd« data 

004452 

1264 

F2A8 

12C3 


LLH 

$R7,*<I3BIS.$R2 

GET "is» DATA 

004253 

1266 

0957 



CMR 

$R6,=$R7 


004254 

1267 

0900 

126b 


BE 

< 1 SbD 

B IF COMPARISON OK 

0044 5 8 

1269 

0380 

1298 

DATANG 

LNJ 

$B5 * <ISBG 

DATA EKROR DEIECTED. REPORT IT 

004256 




it 




004257 

126b 

8AD2 


I SbD 

INC 

= $R 2 

BUMP THE INDEa 

004256 

1460 

A900 

219E 


CMk 

$R2 * <RNG 


004459 

126b 

0200 

1262 


bL 

< I SoC 

B IF RANGE NOi YET DONE 

00426U 




it 




^ ■ 0044 61 




* RANGE OONE 

, CHECK FOR DMA OVERFLOW. IF NO ERRQkS* RfturN 

I 004262 




it 




l 004463 

1270 

92A2 



LLH 

$R1*$B2.$R2 

GET "lb" DATA FOR NFXT LOC AFTER BUF 

0042 64 

1271 

1033 



CMV 

$R1 * = X* 33 ' 

CHECK IF SAME AS BEFORE 

004265 

1272 

0900 

1277 


BE 

<15bE 

b If no dma Overflow 

004266 

1274 

D380 

1030 


LNJ 

$B5 *<FNER 

DMA OVERFLOW 
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004*67 

1*78 

444F 



FNLRDO 

DC 

•DO* 

LABEL* 

004*68 





* 




004^69 

1277 

8280 

20F4 


ISBE 

lb 

<DEFL,-1 



1279 

0001 







004*70 

1*7A 

0500 

U7F 



66T 

<ISyF „ 

B IF DATA ERR FLAG SET f B 

004*71 

127C 

DC8G 

UC4 



LD6 

$B5,<ISBB5 

NO ERROR FOONb... 4 Jr 

094*72 

U7t 

8385 




UMP 

SB5 

RETURN 

004*73 





* 




004*74 





* IF ERRORS 

NOT SUPPRESSED AND NOT 

IN DEBUG MODE AND the RETRY 

004*75 





* ROUTINE IS 

NOT "NOP”* THEN PRINT 

MESSAGE '‘RETRY”. 

004*76 





* 




004*77 

12 7F 

9800 

*186 


IS6F 

LDR 

$R1*<LABEL1 

CHECK IF DEBOm MODf 

004*78 

1281 

9970 

4444 



CNR 

SR1*5»DD* 


004*79 

1*83 

0900 

10A6 



BE 

<RSeT 

B IF IN DEBUG COMPARE LINK 

004*80 

1*66 

8280 

21B6 



Lb 

<SUPRES*=1 



1287 

0001 







004*81 

1288 

0500 

10A6 



66T 

<RSLT 

B IF ERRORS SUPPRESSED 

004*8* 

128A 

9680 

10C2 



LAB 

SB 1*<RT4 

ADDRESS OF M NyP " ROUTINE 

004*83 

126C 

9080 

2 1 A3 



CMb 

$B1*<RTRN 

COMPARE TO RETRY ROUTINE ADDRESS 

004*84 

1*86 

0900 

10A6 



BE 

<R5tT 

B IF RETRY IS A "N 0 P" 

004*85 






CALL 

*VSI»MSRT RY 

PRINT "RETRY” 


1290 

FBCO 

0003 







1292 

0380 

0000 

X 






1*94 

0F80 








1496 

22BC 







004*86 

1296 

OF80 

10A6 



6 

<RSeT 


004*87 





* 




004*88 





* REPORT DATA ERRORS 


004*89 





* 




' 004*90 

1*98 

0F80 

UC5 


IS6G 

STb 

$65, < ISBGB5 

SAVE bS FOR RtToRN 

G0a* 9l 

12 9 A 

FB80 

1269 



LAd 

SB7 * <DATANG 

LOCATION WHERt ERROR DETECTED 

004*9* 

129C 

FFbO 

107C 



STB 

$B7,<FNERF 


004*93 

1 *9t 

9870 

4441 


FNERPA 

LoR 

$R1, = *DA» 

LABEL2 FOR DA 1 A ERROR 

004*94 

12AO 

9F00 

2187 



STR 

$R1,<LABEL2 


004*96 

12 A* 

8900 

21 A* 



LbT 

<RTFLui 

SET RETRY FLAvj 


12A4 

0001 







004*96 

1 * A6 

0500 

12C6 



661 

<DEKA 

B IF RTFL WAS SET 

004*97 

12 A 7 

8A60 

21A1 



INC 

<RTCN 

RETRY COUNTER 

004*98 

12A9 

8980 

* 1A1 



CM* 

<RTCN 


004*99 

12Ab 

0800 

UC6 



bAL 

<DEkA 

B IF 3 TRIES hOT Done YtT 

004300 

12 AO 

8280 

21b6 



Lb 

<SUPRES,=1 



12 AF 

0001 







004301 

1460 

0500 

12B8 



BdT 

<ISbH 

B IF REPORTS jUPPRfSSFD 

00430* 






CALL 

*VST,MSABRT 

PRINT MESSAGE "ABORT” 


12b* 

FBCO 

0003 







1 464 

0380 

0000 

X 






1*66 

0F80 








1*67 

2218 







004303 

1*66 

9680 

10C2 


ISBH 

LAB 

SB1»<RT4 


004304 

126A 

9F80 

21 A3 



STB 

S6U<RTRN 

SET RETRY ROUTINE TO »»hoP” 

004306 

1 2BC 

0380 

10B6 



LNJ 

Sb5, <SET 

SET UP FOR 8 DATA FRRS 9 3 TRIES 

004306 

1*66 

0388 

20B6 



LNJ 

SB5 ,*<ABRN 

DO THE ABORT kOOTInf 

004307 

i*co 

8388 

*186 



JMP 

*<NTST 

GO ON TO NEXT TEST 

004308 





* 




004309 





* 




004310 

1 4 0.4 

0000 



1S6SB 

ReSv 

$AF,0 

POINTER TO w S hOULD-rE” DATA # m 

004311 

1*03 

0000 



ISBIS 

RLSv 

SAF ,0 

pointer to «u« DAta 

00431* 

UC4 

0000 



ISBB5 

KESV 

SAF « 0 

HOLD 65 FOR RETURN FROM ”ISB" U J 

004313 

1*06 

0000 



ISBGB5 

RLSV 

SAF»0 

HOLD 65 FOR RtTORN FROM "ISBG" <--* 

004314 





************************************************************************ 

004316 





* oidn» r adokt. Report the error and do retry if necessary. 

004316 





* 




004317 

1206 

8900 

*0F 4 


DERA 

LBT 

<DEFL 9 = 1 

SET DATA ERROk FLAg 


1208 

0001 







004318 

1209 

0500 

12CF 



BbT 

<DEkB 

B IF FLAG SET 

004319 

1406 

0380 

1039 



LNJ 

SB5 9<RPRT 

PRINT ERR REPORT If FIRST DATA ERR ONLY 

004320 

1 4 OU 

OF 80 

UD5 



6 

<derc 


004321 





* 




00432* 

l*of 

8 ABO 

20F3 


DERB 

INC 

<DEeN 

COUNT DATA ERkORS (FROM -8) 

004323 

1*01 

8980 

20F 3 



CM* 

<DECN 


004324 

1203 

0880 

127F 



BAGE 

< 1 SbF 

b if too many data frrors 

0043*6 





* 




004326 





* REPORT IS- 

Sb 9 CONTINUE DATA CHECK 

004327 





* 




004328 

1206 

0380 

120A 


DERC 

LNJ 

Sb59<PISB 

PRINT ”IS-SB” INFO 

004329 

1*07 

0C80 

UC5 



Lub 

SB5 9 <ISBGB5 


004330 

1209 

8386 




JMP 

SB5 

RETURN 

00433 1 





************************************************************** ********** 

00a33* 





* PRIN1 

r "is" 

AND "SH0ULD-6E" DATA 


004333 





* 




004334 

120A 

OF80 

1319 


PI SB 

STB 

SB5 9 <PI5BB6 

SAVE bS FOR RlTORN 

004336 

1206 

8280 

21B6 



Lb 

cSUPRES 9 s1 



120L 

0001 







004336 

12 OF 

0580 

12E* 



BbF 

<P1SbA 

B IF NOT SUPPRESSED 

004337 

1 *L 1 

8385 




JMP 

SB5 

SUPPRESSED, KlTURN 

004338 





* 




004339 





PISBA 

CALL 

ZV$i.ZV$TC »MSBY TE 

PRINT "BYTE” 


1204 

FBCO 

0003 







12t4 

0380 

0000 

X 






UE6 

OF 80 








Ut7 

221C 







00A340 

12 08 

AFOO 

*167 



STR 

SR*9<TEMPA 


004341 






CALL 

*VSTH9TEMPA 

PRINT HEX BYTu NUMBFR 


120A 

FBCO 

0003 







1 4 00 

0380 

0000 

X 






1 * Ol 

OF 80 








12 OF 

*167 







00^34* 

12Fo 

8000 

2167 



SOI 

<TEMPA 


004343 






CALL 

ZVST 9 MSSB 

PRINT "SB" 


12F* 

F6C0 

0003 







12F4 

0380 

0000 

X 






12Fo 

0F80 








12 F 7 

2290 







00*o4*t 






CALL 

ZVSHA.ZVSHZ 9 T EMPA 9 VRBL CONVERT »Sb" DATA ASCII 


12F8 

F6C0 

0003 







UFA 

0380 

0000 

A 






UFO 

0F80 








UFO 

2167 






£ 


UFO 

2166 






1 

004346 

uff 

9800 

216D 



LDR 

SRI9<VRBL+2 


004346 

1301 

0380 

0FC6 



LNJ 

$B5 9<VDTR 

PRINT HEX "SB” DATA 

004347 





* 




004348 






CALL 

ZVSNA.ZVST 9 MS IS 

PRINT "IS" 
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004649 


004350 
004651 
004354 
004353 
004354 
U04 3 5 3 
00435c 
00435 l 
00465c 
004359 
004360 
004361 
004364 
004363 
004364 
004363 
004366 
004 3 6 f 
00436b 

004369 
004376 
004371 
004374 
004373 
0U4374 
004373 
00437o 

004377 
00437b 
004379 
004380 
004361 
00*+ 3 8 4 
0U4363 
004684 
004663 
00436c 
004367 
00*+38b 
004669 
004390 

004391 
00469c 
004393 
004394 
004393 
004396 
004397 
004396 

004399 

004400 

004401 

004404 

00*+4 0 3 
0044 0*+ 
004405 
00440b 
004407 
00440c 
004409 
004410 
004411 
0044 1 c 
0044 1 3 
004414 
0044 1 3 


1303 

1303 

1307 

1306 

1309 
130b 
1 300 
13UL 
1306 

1310 
1314 


1341 
i 343 
1345 
1 34 7 
134o 
1349 
1 34A 
1 34L 


1340 

1346 

1331 

1333 

1333 

135 I 
1339 
135A 
135b 
1350 
1336 
1361 
1363 
1365 

136 l 
1 3c9 
1 3 6 A 
1 6 6C 


6 bCO 
D3b0 
0680 
4457 

6bC0 
0380 
0660 
4 l Bb 
4 1 bb 
9800 
0360 


0003 

0000 


0003 

UOOO 


4 lbD 
OFCb 


1347 


9B80 44bA 
Abbu 44D0 
9600 40F 5 
9A61 
0160 
9004 
0400 
8363 


0660 

6000 

0000 

0360 

0360 

9600 

8631 

0100 

9970 

0960 

9600 

9630 

9970 

U90C 

038U 

4531 

0C60 

6365 


CALL ZV$nA.ZVSH2»TEMPb.VKbL CONVtRT IS oATA to ASCII 


LOR 

LNJ 


314 

D380 

100F 


LNJ 

316 

DC60 

1319 


LDb 

3 1 a 

6383 



JMP 

319 

0000 


P 1Sbb5 

RtSV 




***********, 




* WRITE A F 

3 1M 

DF 60 

1340 

wFH 

STo 

3 1C 

9600 

4166 


LOR 

3 1 L 

9970 

4134 


CNR 

340 

096A 



BNE 

341 

9630 

40FE 


LOR 

343 

1006 



CMV 

344 

0986 



BNE 

343 

8070 

OUOA 

wFMO 

iu 

34 1 

UOOO 

44bF 



349 

076C 



bl OF 

34 A 

0360 

OFDb 

wFNE 

LNJ 

34c 

0666 



b 

340 

06 76 



NUP 

34L 

OF76 



NOP 

3^6 

bAbO 

40FE 


INC 

331 

6 7 30 

41QE 


CL 

333 

6000 

44A i 


IU 

333 

0000 

24C4 



337 

0380 

177b 


LNJ 

339 

0F6C 

1330 


b 

33d 

0380 

1373 

ftFHB 

LnJ 

3 3D 

OCBO 

1340 

WFMC 

LOB 

33P 

6383 



JMP 

3 4 U 

0000 


WFMB5 

rlS v 


SR 1»<VRBL + 2 
SB5 »<VDTR 

*B5,<SENSE 
SB5 » <PISbb5 
*B5 

SAFfO 


SB3»<WFMb5 
SRI ,<LAbELl 
*R1,=»AT» 

>wfme 

SRI ,<DXFN.SR3 
$R1*=8 
> W6 i v lE 

= 10 $ <OTRUPT 

>WF»4D 
SB5» <RWAQ 
»W6wb 
>S~1 
>S-1 

<DXFN.SR3 

<0XkN.$R3 

<WR1TFM»<0TTASK 

Sb5*<WAlT 
<WFmC 
SB5 »<FSFw 
Sb5 * <WFMB5 
$B5 


PRINT HEX MS" OATa 
"NEXT ?" 

RETURN 


ARE WE IN TESI 
B IF NUT M AT"i 
GET file CUUNl 

B IF NUT GO IN* 
SET DEVICE LVc 


"AT++ ? 

LEAVF LVL ALONE 


FROM 8 TO 9 
TO RUPT 


R» OON 1 T WKITt ANYTHING 

w 

A 

Q OR D* ADVANCE FIlF COUNTER 

clear record countfr 
WRITE FILE mark 

WAIT TILL DONu 
RETURN 

FORWARD SPACE A FlLF 
RETURN 


$AF »0 

************************************************************************ 
£ SET ALL CHmNNEL CONSTANTS TO CURRENT DRIVE ADOkESS (PORT NUMbER) 

SLTChN Lmd SB!»<CHAN START OF CHAN ADDRfSSFS 

Lab Sb2,<CHANZ END OF CHAN AoDRESSFS 

LuK $Ri*<DRIVE DRIVE ADDRESS 

SLTCHA SkN SR1,*$BI»=Z*0180* ADD DRIVE ADDRESS TO CHANNEL 

CHb SbU = SB2 

Bl <SETCHA B IF table NOT DONf yet 

JMP Sb5 RETURN 

************************************************************************ 
* ERASE A BLOCK AND WAIT TILL DONE. CHECK STATUS. 


136b uOOU 


1360 

tRAW 

tj- 

$B5 *<ERAWB5 


44 AO 

44C4 


<erase*<gttas< 

erase tape 


177B 


LNj 

Sb5 »<wA1T 


06 EC 


LnJ 

sB5 »<1 NSTaT 

get status 

41B4 


LOR 

SR1,<STAT1 

GET STATUS 



LbF 

=$Ri*=Z•0100* 

DON*T cake - EOT 

6000 


CMR 

Ski * = 2 * 8000• 
<EkawB 

ROYt 

136 7 


BNE 

b IF NO 

4 1B5 


lOk 

SRI *<STAT4 

GET STATUS 

406 A 


XuR 

Ski,<0XDENS.$R3 MASK wlTH DENSITY ft T T 

6000 


CMR 

&Ri$=Z•8000• 


136A 


BE 

<tRA*C 

B IF OR 

1030 

ERAWB 

Limj 

$B5 *<FNtR 

STATUS NO AFTlR ERASE 


FNEKL1 

DC 

•El* 

LABEL4 

1360 

lrawc 

LOb 

3>B5 ♦ *ERAwo5 



jHP 

$B5 



ERAWB5 

RESv 

SAF *0 



************************************************************************ 
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TITLE HiUS3*•REV G* 


QOh 4Io 




* WAIT FOR N/BSY, GET RANGE. HOWEVtR, DON’T ALLQ* FOR INTERRUPTS AS IN 

004h 17 




* SUBROUTINE 

"WAH”. 


004418 




* 



0044x4 

1 3bt 

8000 

2190 

GETRNG 10 

<RAi'ioE*<XNRANG 

GET RANGE 


13 70 

0000 

22CA 




004420 

1372 

0780 

136E 

blUF 

<GE1RNG 

WAIT FOR N/BSr 9 GET RANGE REMAINING 

00442 I 

13 74 

6365 


JMP 

$B5 

RETURN 

G0‘+*+22 




************ 

************************************************************ 

004423 




* FORWARu SPACE A FILE AND *AlT TILL DONL 

004424 




* 



004425 

1373 

0F8D 

1390 

FSFW STB 

$B5 9 <F SFWB5 


0 044 2 0 

1377 

0380 

1 3B3 

ENJ 

$B5»<FSF 

START TO SPACt, 

004427 

1379 

0360 

177b 

ENJ 

$B5,<WA1T 


0 0 4 M 2 b 

137b 

0380 

OF LC 

LNJ 

$B5 * <INST AT 

GET STATUS 

004424 

13 70 

9600 

21B4 

LOR 

$K1»<ST AT 1 

GET STAJ 

004430 

137F 

6651 


LbF 

=$Rl9 = Z 1 0100* 

DON'T CARE - tOT 


1360 

0100 





004431 

1381 

9970 

6400 

CMk 

$R1 9 =Z'8400 * 


004432 

1383 

0960 

1397 

ONE 

<F5FWA 

B IF ST ATI NG 

004^33 

138 5 

9600 

2 1B5 

LOR 

$k 1»<STAT2 

GET STAT 

004434 

1387 

9630 

20F A 

XOR 

$Ri,<DXDENS.$*3 

MASK WITH DENSITY BIT 

004435 

1 3d9 

AObG 

2102 

LOH 

$R2 i <OXMD. $R3 

GET MODE 

004436 

1 3bp 

A1FO 

3220 

CMH 

$R2,=’R * 


004437 

1380 

0904 


bt 

>FSF wO 

6 IF MODE «R" 

004n3b 

1 38L 

A 1 F 0 

4420 

CMH 

$R2, = »D » 


004439 

U90 

0963 


BNt 

>FSFWC 

6 IF NOT MODE "D” 

004440 

1391 

8851 


FSFWD LBF 

= SRU5Z*2000« 

IGNORE "PROTECT" STATUS bIT 


1392 

2000 





00444i 

1393 

9970 

oOOO 

F SF WC CMk 

$R19=Z * 8000 * 


004^4^. 

1395 

0900 

139 A 

BE 

<FSF WB 

B IF ST AT 2 OK 

004443 

139 7 

0380 

1030 

FSFWA LNJ 

3>b5 * <F NER 

STATUS NG AFTlR FSfw 

004444 

1399 

4631 


FNERFI OC 

• FI* 

LABEL 2 

004445 

1394 

oCbO 

1390 

FSFwb LOB 

$65«<FSF WB5 


004446 

139C 

6385 


JnP 

3.B5 

RETURN 

004447 




* 



004446 

1390 

. 0000 


FSFWB5 RlSv 

SAF*0 


004449 




************************************************************************ 

004450 




* FORWARD SPACE A FILE* PAST E-0- 

T IF NECESSARY 

004451 




* 



004452 

1 3 9L 

0F60 

i 3B2 

F SF EOT ST b 

$65 t < F SF EB5 


004453 

1 3 AO 

0380 

i 30 

FSFEA LNJ 

$65 9 < F SRW 


0.04454 

13A2 

d 26 G 

2 1B4 

Lb 

<STAT19=Z , 040Q» 



13A4 

0400 





0044 5 5 

13 A5 

05F b 


bbF 

>FSFEA 

B IF NUT YET FM DE'T 

004456 

1 3 Ao 

9830 

20 FE 

LOR 

*R1,<0XFN.$R3 

GET FILE COUNi 

004457 

1 3A6 

100 b 


CHV 

3>R19-8 


00445b 

13A9 

0A66 


bALE 

>FSFEC 

B IF IN FIRST 8 FIlFS 

004*59 

1 3 AA 
\ zi AC 

8070 

OOOA 

FSFEO 10 

=109<0TRUPT 

SET UP FUR RUPTS 

004460 

13AL 

U U U 

07 FC 

ctur 

blUF 

>F SF EO 


004461 

13 AF 

DC 6 Q 

13B2 

FSFEC EOb 

$B5 9 <FSFEB5 


004462 

1301 

8385 


JMP 

3.65 

RETURN 

004463 




* 



00446* 

1302 

0000 


FSFEB5 KESV 

a>AF 9 0 


004*65 




************************************************************************ 

004466 




* START TO FORwARu SPACE A FILE 


004467 




* 



00446b 

13b3 

OF 80 

13C0 

FSF STB 

$B5,<F SF65 


004469 

1305 

8 AbO 

20FE 

INC 

<DXFN.$k3 

INCREMENT Flit. COUNT 

004476 

1307 

8 730 

2 1 OE 

CL 

<DXkN.SR3 

CLR RECORD COuNT 

004471 

Ub9 

6000 

2290 

10 

<FWOF1Ei<QTTASK 



1300 

0000 

22 C 2 




00447*: 

UbD 

OCbO 

13C0 

Lub 

$65 9 <FSFB5 


0044/3 

UBF 

6385 


JMP 

$b5 

RETURN 

004474 




* 



004475 

13L0 

0000 


FSFB5 KESv 

$AF 9 O 


004476 




*************************** ********************************************* 

604477 




* FORWARD SPACE A RECORD AN J WAIT 

TILL DONE 

004478 




* 



004479 

UU 

OF60 

UEb 

FSRW STB 

$B5 9 <F SRWB5 


004480 

1 3C3 

0360 

13E9 

LNj 

$B5 9 <FSK 

START TO SPACl 

004481 

13C5 

0380 

177 b 

ENJ 

$B5 9 <WA1T 


004482 

13C7 

0360 

OF EC 

LNJ 

$65 9 <INST AT 

GET STAT 

004483 

13C9 

9800 

2lb4 

LOR 

$R1,<STAT i 

GET STAT 

004484 

13Co 

8831 


LbF 

= $R1 9 =Z•0500• 

DON'T CARE - lOT 9 FM DET 


UCC 

0500 





004485 

13Co 

9970 

8000 

CMK 

$R 19 = Z• 8000 » 


G04*8o 

13CF 

0960 

13D9 

bNE 

<FSKwA 

B IF STATl NG 

004487 

1301 

9600 

21B5 

LOR 

$R 19 <STAT 2 

GET STAT 

00446b 

1303 

9630 

20 FA 

XOR 

$R 1 9<DXDENS.$R3 

MASK WITH DENSITY BIT 

004489 

1303 

9970 

bOOO 

CMk 

$Ri9-Z 1 6000 1 

CHECK STAT2 

064490 

1307 

0900 

1 30C 

BE 

<FSkWb 

B IF STA12 QK 

004491 

1309 

0360 

1030 

FSRWA ENJ 

$65 9<FNEK 

STAT NG AFTER FSRW" 

00*492 

UDb 

5231 


FNERR1 OC 

*R1» 

LABEL2 

004493 

13 PC 

6260 

2164 

FSRWB Lb 

<ST ATi 9 -Z * 0400 * 

CHECK FOR FILl MAkjc 


UDE 

0400 





004494 

13DF 

0560 

13E5 

bbF 

<FSkwC 

B IF NO FILE HARK 

004*95 

Uti 

6 AbO 

20 Ft 

INC 

<DXFN.$R3 

increment FILl counter 

00*496 

13E3 

6730 

2 1 OE 

CL 

<DXkN.$R3 

CLR RECORD COUNTER 

004497 

13E5 

OCBO 

UEb 

FSRWC LOb 

$B5,<FSRWB5 


004496 

13E7 

6385 


JMP 

$B5 

return 

004*99 




* 



0O450O 

UEb 

0000 


FSRWB5 KESV 

$AF 9 0 


004501 




************************************************************************ 

004502 




* START TO FuRwARo SPACE A RECORD 


004503 




* 



004504 

13E9 

OF 60 

13F4 

FSR Sfb 

$65 9 < F SRB5 


004505 

13Eo 

6 AbO 

2 1 OE 

INC 

<DXKN.$R3 

BUMP RECORD CjUNTEr 

004506 

UED 

6000 

229B 

10 

<FW0RtC9<QTTASK 



UEF 

0000 

22C2 




004507 

13F1 

0C80 

13F’4 

LOb 

$B5 9 <F SRB5 


004508 

13F3 

8365 


JHP 

$B5 

return 

004309 




* 



004510 

13F4 

0000 


FSRB5 RESV 

$AF 9 0 


004511 




************************************************************************ 

004512 




* BACKSPACE 

A FILE AND WAIT TILL 

DONE 

004313 




* 



004514 

13F3 

OF60 

1413 

BSFw STB 

$B5 9<BSFWb5 


004515 

13 F 7 

0380 

1414 

LNJ 

$65 9 <BSF 

START TO SPACE 

00*516 

13F9 

0380 

177B 

ENJ 

$65 9 <WAIT 


004517 

13Fo 

0380 

OFEC 

LNJ 

$65,<INSTAT 

GET STATUS 

00451b 

UFO 

9800 

2 1B4 

LOR 

$Rl 9 <STAT 1 

GET STAT 

004519 

13FF 

8651 


LbF 

= $R1 9 =Z * 0300 * 

DON'T CAKE - lQTi BOT 










TITLE MT0S3»* 

REV G« 

» MINE 

TRACn Pb/NRZI MAO TAPl T 6V (SAF) 

PAGt 51 


140U 

0300 





004320 

1401 

9970 

8400 

CMK 

SRI9=2*8400* 


00432 i 

1403 

0980 

1400 

BNL 

<BSFWA 

B IF ST ATI NG 

004322 

1403 

9800 

21B5 

LOR 

SR 1 * <ST AT 2 

GET STAT 

f 00452 5 

140 7 

9630 

20FA 

XuR 

SRI»<0XDLNS.$k3 

MASK WITH DENSITY BIT 

I 004524 

1409 

9970 

6000 

CMk 

SRI9=2'8000* 


^4,^./*' 004 5 2 5 

l40u 

0900 

1410 

bb 

<BSF WC 

B IF STA12 OK 

004326 

I40u 

0380 

1030 

BSFWA LNJ 

SB5,<FNER 

STATUS NG AFTt.R BSFW 

004327 

1401- 

46 34 


FNLRF4 OC 

»F4» 

LABEL2 

0 0 4 5 2 o 

14 10 

DC60 

1413 

bSFwC bob 

SB5•<BSFWB5 


004329 

1412 

8385 


JMP 

SB5 

RETURN 

004 5 3u 




* 



0U4 3 31 

14 13 

0000 


dSFwB 5 RbSv 

SAF 9 0 


004532 




************************************************************************ 

U0h533 




* start to backspace a file 


004b34 




* 



00*fb3b 

1414 

OF 80 

142 A 

BSF STB 

SB59 <BSFb5 


004336 

1416 

8800 

20F b 

ObC 

<0XFN.$K3 

DEC FILL COUNTER 

00433/ 

1416 

8730 

210b 

Cb 

<DXKN* SK3 

clr record COUNTER 

00433b 

14 1A 

9630 

20F b 

LOR 

SR 1 * <OXFN.$R3 

GET FILL COUNI 

004339 

14 1C 

1008 


CMV 

SR 1 * = 6 


004 b4u 

1410 

0966 


bht 

>BSFb 

B IF NOT ARRIVING AT FILL b 

004 b41 

1 4 1 L 

6070 

0000 

bSF A lu 

= 0 9 <07 RUPT 

NOW AT FILL 8, INHIBIT RUPTS 


1420 

0000 

226F 




004342 

1422 

07FC 


b 1 OF 

>BSF A 


00434b 

1423 

8000 

229b 

bSFb 10 

<RLVFIL<<OTTASK 

START TO BACK SPACE 


1425 

0000 

22C2 




004b44 

142 7 

dC.80 

142 A 

LOb 

SB5 t <BSFB5 


004b4b 

1429 

8385 


JMP 

SB5 

RETURN 

004b4b 




* 



004b47 

1 42 A 

0000 


BSFb5 KbSv 

SAF 9 U 


004b4o 




********* *************************************************************** 

004349 




* bACKSPACE 

A RbCuKO AND WAIT 

TILL DONE 

Ouh35u 




* 



004351 

l42L> 

OF 80 

1452 

BSRW STB 

SB5 < <bSKwB5 


004352 

1 4 2 O 

0380 

1453 

LfMJ 

SB5 < <BSR 

START TO SPACu 

004353 

1421- 

0380 

177b 

LNJ 

Sb5 9 <wA1T 


004354 

1431 

0380 

OFEC 

Lnj 

SB5 9 <1 NST AT 

GET STAT 

004355 

1433 

9800 

2 1 B4 

LOR 

SRI9<STAT1 

GET STAT 

00435o 

1435 

8851 


LbF 

= SRi 9 =2 * 0700 1 

DON’T CAKE - i"M9 BOT9 EOT 


1436 

0700 





004557 

W3 7 

9970 

8000 

CMk 

SRI 9 = 2*8000* 


00455b 

1439 

098(3 

1443 

bNb 

<BSKWA 

B IF Si ATI NG 

004359 

14 3 d 

9800 

21b5 

LOR 

SRI 9<STAT2 

GET STAT 

0O456U 

1430 

9630 

20FA 

Xuk 

SRl9<0X0LNS«$R3 

MASK wlTH OLNdlTY BIT 

004561 

143F 

9970 

6000 

CMK 

SKI 9=2*8000* 


004362 

1441 

0900 

1446 

bb 

<BSkwC 

B IF Si AT2 OK 

004363 

1443 

0380 

1030 

bSRwA LNJ 

SB5 9 <F NLR 

STATUS NG AFTlR BSRw 

004564 

1445 

5234 


FNERR4 OC 

* R4 * 

LABEL2 

004563 

I 446 

8280 

2 1B4 

BSkWC Lb 

<5T Al19=2'0400* 

CHECK FOR F ILt» MARk 


1448 

0400 





004566 

1449 

0560 

144F 

BbF’ 

<BSRWb 

B IF NU FILE mark 

004567 

1 44 d 

86B0 

20Ft 

.... ObC 

<DXFN*SK3 

DECREMENT FlLt CNTr IF FILE DETECTED 

00456b 

1440 

6730 

210b 

BSRWD CL 

<DXKN.SR3 

CLR RECORD COuNTER 

004369 

1441- 

OC80 

1452 

bSRwb lob 

Sb5 9<bSRWB3 


. 004370 

1431 

6383 


JMP 

SB5 


f 004371 




* 



I 004572 

1452 

0000 


BSKWB5 RbSv 

SAF <0 


1 00437^ 




************************************************************************ 

004374 




* start to backspace a record 


004373 




* 



004576 

1453 

OF 80 

145b 

bSR STB 

SB59 <BSK65 


004577 

1433 

8800 

210b 

ObC 

<0XKN*$K3 

DECREMENT KbCuRD COUNTER 

00457b 

1457 

8000 

229C 

10 

<REvRLC9<0TTASK 

START TO BACKSPACE 


1459 

0000 

22C2 




004379 

14 3 b 

0C.60 

145b 

LOb 

SB5 9 <BSRb5 


004360 

1450 

8383 


JMP 

$B5 


004361 




* 



004562 

145b 

0000 


BSRB5 RbSV 

SAF" 9 0 


004583 




************************************************************************ 

004384 




* PRINT TwO 

12) BLANKS 


004583 




* 



004586 

l45F 

OF 80 

1466 

BLANKS STB 

$b5 9 <BLANB5 


004387 

1461 

9670 

2020 

LOR 

SR 19 = * * 


004386 

1463 

0380 

OFCB 

LNJ 

SB5 9 <VDTR 

PRINT THt BLANKS 

004369 

1463 

OC80 

1466 

LOB 

SB5 9 <BLANB5 


004590 

146 7 

8385 


JMP 

SB5 


004391 




* 



004592 

1466 

0000 


bLANb5 RLSV 

SAF <0 


004393 




************************************************************************ 

004394 




* CHECK THAT 

CURRENT unit IS - 

ACTIVE AND NOT BUSY 

004593 




* 



004396 

-14-69 

OFCO 

0013 

ANb ST b 

SB 5 9ANbB5 


004397 

146b 

8000 

21B4 

10 

<STATl9<INSTWl 

TRY TO GET STATUS 


1460 

0000 

22CC 




0O4396 

1 4oF 

0700 

1474 

BIOT 

<ANpA 

B IF N/BSY 

004599 

1471 

0360 

1030 

LnJ 

SB5 9 < FNER 

SHOULON« T BE uSY 

004600 

1473 

3031 


FNLR01 OC 

*01 * 

LABEL2 

004601 

1474 

8260 

21B4 

ANbA Lb 

<STaT19=2*8000* 



1476 

8000 





004602 

147 7 

0500 

147C 

BBT 

<ANbB 

B IF ROY 

004603 

1479 

0380 

1030 

LnJ 

SB5 9 <FNER 

SHOULD HAVE bcEN Rqy 

004604 

147b 

3032 


FNLR02 OC 

*02* 

LABLL2 

004605 

1470 

OC80 

147F 

ANbB LOb 

SB5 9 <ANBB5 


004606 

147 b 

8385 


JMP 

SB5 


004607 




* 



004608 

147F 

0000 


ANBB5 RbSv 

SAF <0 


004609 




************************************************************************ 

004610 




* CHECK FOR 

errors 


004611 




* 



004612 

1480 

0F60 

14b2 

ERCK STB 

SB5 9<LRCKB5 


004613 

1462 

9800 

2186 

LOR 

SR 19 <LABEL1 

GET LABEL 

004614 

1484 

9970 

4452 

CMK 

SR 19 = * OK• 

’•READ" MODE 

004&15 

I486 

0968 


BNb 

>ERCKA 

B IF NUT READ MODE 

004616 

146 7 

8980 

219F 

CM2 

<RNjFLG 


004617 

1489 

0905 


bb 

>EKCKA 

SUPPRESS "LENGTH CHECKS" 

004618 

148 A 

8280 

21B4 

LB 

<STAT19-Z *3A7F» 

IGNORE LENGTH CHECK 


148C 

3 A 7 F 





f s 004619 

1480 

OF 64 


b 

>ERCKB 


I 004620 

148b 

8280 

2 1B4 

LRCKA LB 

<STAT 1,=2 « 3AF F• 


L .. ■ 

1490 

3AFF 





^ 004621 

1491 

0500 

14BC 

LRCKB bBT 

<ERCKC 

B IF STAT1 NG 

004622 

1493 

9800 

2186 

LOR 

SRI9<LABEL1 

GET LABEL 
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0G4o23 

1495 

9970 

444F 



CMR 

$R1,- * DO’ 


Q04b24 

149 7 

0900 

1463 



6E 

<ERCKG 

B IF PROTECT dTATUs IS OK 

004625 

1499 

9970 

4452 



CMR 

$R1,=’DR’ 


00462b 

1490 

0900 

1463 



6E 

<LRcKG 


004627 

1490 

9970 

4454 



CMR 

$Rl*s *DT’ 

/*> 

004626 

149F 

0900 

1463 



BE 

<ERCKG 

Vi J 

004629 

14A1 

9970 

4455 



CMR 

$Ri,5*DU* 


004630 

14A3 

0900 

1463 



BE 

<ERcKG 


004631 

14A5 

9970 

4456 



CHR 

$R1, = ’DV * 


00463*: 

14 A 7 

0900 

1463 



BE 

<ERCKG 


004633 

14 A9 

9970 

4459 



CHR 

$R1,-*DY’ 


004t>34 

l4Ad 

0900 

1463 



BE 

<ERCKG 


004o35 

14AD 

9060 

2102 




$R1*<DXMD.$R3 

GET CURRENT MODE 

004636 

14AF 

91FO 

5220 



CMH 

$Rl*=’R ’ 

MODE "K" 

004637 

1461 

0980 

1467 



6NE 

<ERCKH 

B IF PROTECT dTATUs IS NG 

004o3b 

14t>3 

6280 

2165 


ERCKG 

Ed 

<STAT2*=Z’4FFF» 

IGNORE ’’PROTECT STATUS" 


l4b5 

4F F F 







004639 

1466 

0F84 




6 

>ERCKI 


004640 

1467 

8260 

2165 


ERCKH 

L6 

<STAT2,sZ’6FFF» 

IGNORE ON-LINE AND HI-DLNSITY 


1469 

6FFF 







004o41 

146A 

0560 

146F 


ERCKI 

bBF 

<ERCKD 

B IF ST AT2 OK 

00464^ 

1460 

D360 

1030 


ERCKC 

ENJ 

$65 * <F NER 

STATUS 1 AND/uR 2 NG 

004643 

14bt 

3037 



FNER07 

DC 

* 07 • 

LABEL2 

C04b4<t 





* 




004643 

146F 

8600 

21A2 


ERCKD 

LdF 

<RTF L * - l 



1 4 C 1 

0001 







004646 

14C2 

0500 

14C7 



66T 

<ERCKt 

6 IF RTFL SET* DO RETRY ROUTINE 

004647 

14C4 

DC80 

14E2 



LDB 

$65,<ERCKb5 

RESTORE RETURN ADDRESS 

004646 

004649 

1406 

8385 




JHP 

$65 

RETURN FROM LkR CHECK, NO RLTRY 

0046 5u 
004b51 





* A RETRY 15 

IN ORDER. FIRST DO 

RETRY ROUTINE* TrlEN Go TO RETRY LOCATION, 

004652 

14(^7 

0366 

2 1 A3 


ERCKE 

ENJ 

$65 **<RTRN 

DO RETRY ROUTINE To SET UP FOR RETRY 

004653 

14C9 

9080 

2186 



LDH 

$R1,<LABEL1 

CHECK IF MODE D (LABELl = "DX") 

004654 

14C6 

9 1 FO 

4420 



CHH 

$R1* = ’D * 


004653 

14C0 

0900 

14E0 



BE 

<LRCKF 

B IF MODE D, uON * T PRINT RETRY 

004656 

14CI- 

8260 

2166 



LB 

<SUPRES,=i 



1401 

0001 







004657 

1402 

0500 

14E0 



bbT 

<lrckf 

IF SUPPRESSED, DON*T pRINT "RETkY" 

004656 

1404 

9680 

10C2 



LAB 

$61*<RT4 

A "NOP" ROUTINE 

004639 

1406 

9080 

2 1 A3 



CH6 

$61 * <R TRN 

RETRY ROUTINE 

004660 

1406 

0900 

14E0 



Bt 

<ERCKF 

B IF RIKN IS "NOP", DON’T PRINT "RETRY" 

004661 






CALL 

ZVST *HSRTRY 

PRINT "RETRY" 


14 OA 

F6C0 

0003 







140C 

0380 

0000 

X 






140L 

OF 60 








1406 

226C 







004662 

14LU 

6368 

21A4 


ERCKF 

JHP 

*<RTRY 

go to retry location and continue 

004663 





* 




004664 

14L2 

0000 



ERCK65 

RESV 

$AF*0 


004665 





ft*********************************************************************** 

004666 





* CONSTANTS 

AND Save AREAS FOR 

TtSr RP. 

004667 





* 




004666 

14E3 

0060 



LVQC 

DC 

Z •0060 • 


004669 

14b4 

0000 



DEVSEM 

RESV 

1*0 


004670 

1463 

0000 



cpchan 

KLSV 

1*0 

- N 

004671 

14L6 

0000 



DLVL 

RESV 

1,0 

DEVICE LEVEL 

00467*: 

141 7 

GOOD 



CLVL 

RESV 

1,0 

#*** ******* 

004673 

14t 8 

0000 



PLVL 

RESV 

1,0 

PROGRAM LEVEL X .X 

004674 

14E9 


003 F 

X 

HOOBF 

DC 

<ZHiSAZ+63*$AF 


004673 





* 




004676 





* 




00467/ 





* 




004676 

1 4La 

0000 



1SATTL 

RESV 

$AF , 0 

TSA LINK 

004679 

14tb 

0000 



ISATDV 

RtSV 

1*0 

DEVICE AND LEvEL 

004680 

14EC 

FFFF 



ISATM1 

DC 

Z'FFFF • 

MASK I 

004681 

14L0 

0000 



ISATM2 

DC 

Z’OOOO* 

MASK 2 

004o82 

14LL 

0000 



ISATP 

RESV 

$AF , 0 

P REG 

004683 

14EF 

4000 



ISATS 

DC 

X*4000 * 

PRIV BIT 

004684 

14FU 

0000 




RESV 

9+7*$AF ,0 


004683 





* 




004686 





* 




004687 

1300 

GOOD 



ISARTL 

RtSV 

$AF * 0 

TSA LINK 

004686 

1501 

0000 



1SARDV 

RESV 

1*0 

DEVICE AND LEVEL 

004689 

1502 

FFFF 



ISARM1 

DC 

Z’FFFF* 

MASK 1 

004690 

1503 

0000 



ISARM2 

DC 

Z’oooo* 

MASK 2 

004691 

1304 

0000 



ISARP 

RESV 

$AF * 0 

P REG 

00469*: 

1505 

4000 



ISARS 

DC 

X * 4000• 

PRIV bIT 

004693 

1506 

0000 




RESV 

9+7*$AF ,0 


004694 





* 




004693 





* 




004696 

1316 

8 ABO 

14EE 


DEV IH 

INC 

<ISATP*$AF-1 

RESET RETURN LOCATION 

004697 

1318 

8A6T) 

14EE 



Inc 

<ISmTP*$~AF-1 


004696 

151A 

6 ABO 

14E4 



INC 

<DLySLH 

SET SEMAPHORE 

004699 

15 1C 

L60Q 

14L6 



LDR 

$R5 * <DLVL 

DEVICt LEVEL TO R5 

004700 

151b 

E800 

14E8 



LDR 

$K6,<PLVL 

PROGRAM LEVEL TO k 6 

004701 

1520 

0400 

226A 



UK 

$R5,<CHAN 

STICK IN CHANNEL NUMBER 

004702 

1526 

A800 

1501 



LDR 

$R2 * <1SARDV 

LOOK AT RUPTInG DEVICE 

004703 

1524 

6652 




LdF 

=$R2,=Z«0040» 

SHUT OFF I/O dIT 


1523 

0040 







004704 

1526 

A955 




CMR 

$R2,?$R5 

WAS IT THE TAPE? 

004705 

132 7 

0906 




bL 

>DEVIH1 

YES - UK 

004706 

1528 

bBOO 

0748 



LDR 

$R3,<RPR3 


004707 

152A 

0360 

1030 



LNJ 

$65,<FNER 

RUPTING DEVICt wAS NOT A TAPE 

00470b 

1320 

3339 



FNER39 

DC 

•39* 

EABEL2 

004709 

1 5lD 

0600 

14E6 


DEV INI 

LDR 

$R5,<DLVL 

DEVICE LEVEL 10 R5 

004710 

1321- 

6955 




LoT 

=$R5,sZ*4000* 

SET PRIVELEGE BIT 


153U 

4000 







004711 

1331 

6C52 




STS 

= $R2 

STORE THE "S" REGISTER 

00471 4 

1536 

A955 




CHR 

$R2 * = $R5 

IS IT RIGHT? 

004/13 

1533 

0906 




BL 

>DLV1H2 

YES - GO ON 

004714 

1334 

b600 

0748 



LDR 

$R3 »<RPR3 


004713 

1536 

0360 

1030 



LNJ 

$65 , <FNLR 

•S’ R£G WRONG IN SAVE AREA 

004 7 16 

1536 

3430 



FNtR40 

Db 

*40* 

LA6EL2 

004 717 

1339 

0570 

003F 


DEV1H2 

AND 

$R5*=Z’003F * 

LOOK AT DEV I Cl. LEVEL 

004716 

153b 

6752 




CL 

= $R2 

RESET INDEX 

004719 

1530 

62 AO 

0000 

X 

DEV IH3 

Lb 

<ZH1AFB.$R2 

LOOK AT NEXT FLAG 

004720 

153L 

A955 




CHR 

$R2,=$R5 

IS THIS FLAG i HE DEVICE LEVEL? 4T'"\ 

004/21 

153F 

090A 




bt 

>DEv1H5 

YES - BRANCH M 

004722 

1540 

A956 




CHR 

$R2*=$R6 

IS THIS THE PkOGRAm LEVEL FLAG 1 ,j 

004723 

1541 

090b 




6E 

>DLVIH5 

YES - BRANCH 

004724 

154*: 

0502 




66 T 

>DEvIH4 

IF FLAG IS ON - BRANCH (SHOULDN’T BE) 

004723 

1343 

Of-91 




6 

> D E V 1 H 7 

OK FLAC. IS OFi- 
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004726 
004727 
00472b 
004729 
0 U 4 7 3 U 
GU4731 
004732 

0U4 /33 
004734 
004/35 
00473c 
004737 
004730 
004739 
004740 
004741 
00474c 
004 743 
004744 
004745 
004 740 
004747 
00474b 
004749 
004750 
004751 
00475c 
0-04 7 53 
004754 
004755 
004756 
004757 
00475o 
004 759 
004 760 
004761 
0 0 4 7 o c 
004763 
004764 
004765 
00476c 
004767 
00476b 
004769 
004 770 
004771 
004772 
004 773 
004 774 
004775 
0 0 h 7 7 6 
004777 
00477c 
004779 
004780 
0047c1 
0047 8c 
004783 
004/84 
004785 
004786 
004787 
004788 
004789 
004 790 


1544 

6800 

0748 


DEVIH4 LDR 

$R3,<KPR3 

1 54o 

D380 

1030 


LNJ 

$65 * <FNEK 

154b 

3431 



FNER41 DC 

•41 • 

1549 

0586 



DEV1H5 bbF 

>DE V1H6 

I 54A 

A956 



CMR 

$R2 , = $Rb 

1 54o 
154C 

0909 



bt 

>DEvIH7 

8820 

0000 

X 

LbF 

<ZH1AFb«$k2 

1 54t 

GFb6 



b 

>DEvlH7 

154F 

bbOO 

074b 


DEVIH6 LDR 

$R3, <RPK3 

1551 

D380 

1030 


LNJ 

*65,<FNER 

1553 

3432 



FNEK42 DC 

•42* 

1554 

A970 

00 3 F 


DEVIH7 CMR 

$R2 , = 63 

15 56 

0282 



bGt 

>DEV1H8 

155 7 

27E5 



blNC 

$R2,>DEVIH3 

155b 

C870 

bOOO 


DEVlHb LDR 

$R4,^2 , 8000» 

1 55 A 

C400 

14E7 


OR 

$R4,<CLVL 

1 55C 

D900 

14E7 


CMR 

j»R5, <CLVL 

155b 

0901 

F1 Ab 


bt 

RPKi 

156U 

8 E 5 4 



LEVXF LEV 

= $R4 

1561 

OF b 1 

FFb4 


b 

DEV1H 


1563 
1565 
156 7 
156b 


1569 
1560 
I56g 
1 5 6 F 
1571 
1573 
1578 
157c 
157b 
15 7m 
1 87C 
1571 

1580 

15bc 

1584 

1586 

1587 
1589 
15bd 
1580 
15bF 


bbOO 074b 
0380 1030 
3433 
OF F d 


OF 80 
0380 
9680 
9FC0 
9680 
9 P 60 
8756 
0380 
6700 
6 700 
u3b0 
0380 

u380 

9B80 

9F80 

6 CFF 

0380 

03b0 

0360 

OCbO 

8385 


1590 0000 


1590 
1066 
10C2 
0C33 
1580 
21A4 

1591 
218E 
2180 
1599 
15F9 

1066 

1580 

21A4 

a 59 i 
1599 
15F9 
1590 


1591 

1592 
159m 
1595 
159c 

1597 

1598 


8751 

9b8u 17E6 
EF 50 
1009 
0271 
8 751 
8385 


ACT Flo IS on WhEN it ShUULON»T BE 
LABEL2 

FLAG lb OFF (SHOULDN'T bt) 

13 THIS THE PkOGRAm LEVEL? 

YES - bkANCH 

NO - RESET DtvICE LEVEL FLAG 
CONTINUE 

FLAG lb OFF* jHUULD BE ON 
LABEL2 

IS THAI ALL Tnt FLAGS? 

YE3 - bRANCH 
NO bUMP AND brtANCH 
GET REAOY FOR LEV ********** 
a###*##** 

ARE LEVELS EGuAL? 

YES - O0NT LEv 
GO BACK TO PRgGRAM 
BRANCH TO STAkT OF HANDLER 

* 

* 

1 SAT Ih LuR 
LNJ 

FNER43 Oc 
b 

************ * *********************************************************** 
* 


$R3,<RPK3 
$65i<F NER 

•43* 

>1SmTIH 


CPU TR1E0 TO INTERRUPT 
LABtL2 
********** 


* 

WRAPA 


WRAPB 


STB 

$65,<WRAP65 

LNj 

$B5,<SET 

Lab 

$bl,<RT4 

bib 

$B1 ,RTRN 

LAb 

$B1,<WRAPA 

STb 

$bl,<RTRY 

Cl 

= $Ko 

LNJ 

$B5,<LDbUF 

CL 

<OFSETW 

CL 

<0F bETR 

Lnj 

$B5,<TURN 

Li9 J 

$B5,<COMPAK 

LNJ 

$65, <SET 

LAb 

$bl,<wRAPb 

STb 

$bl,<RTKY 

LDV 

$R6 , =-1 

LNu 

$B5,<LDBUF 

LNJ 

$B5,<TUkN 

Lnj 

$65,<COMPAR 

LDb 

$65,<WRAPb5 

JMP 

$B5 

RLSV 

$AF, 0 


SET UP FUR REjRY MESSAGE 
RETRY ROUTINE 13 A NOP 

RETRY LUC 

WRAP DATA OF cEROS (0000) 

WRITE OFFSET 
REAO 0FF3ET 
DO TURN-AROUNg TEST 

Kt ' RY ME5SA&t 
WRAP DATA OF uNES {FFFF) 


************************************************a*********************** 


* FILL 

WbUF 

wiTH DATA FROM 

LDbUF 

CL 

= $ki 


LAb 

$61*<WbUP 

LDbUFA 

STk 

$R6,$bl.♦$K1 


CMV 

$R1,=9 


Bl 

>LDbUFA 


Cl 

= $R 1 


JMP 

$65 


004792 




* WRAP 

data 

OUT 

004 793 




* 



004794 

1599 

DF 60 

1 5F8 

T URN 

STb 

$B5,<TuRNB5 

004795 

159b 

0380 

175C 


LNJ 

$B5,<FRB33 

004796 

1590 

9600 

216L 


LuR 

$R1, <OFSET W 

004 797 

1 59P 

c 190 

17E6 

TURNA 

1ULD 

<WbuF.$Rl,<IOwRIT,: 


1 5 A1 

0000 

22BC 





15A3 

0054 





004796 

15A4 

0 7F H 



B10F 

>TUKNA 

004 799 

15A5 

8000 

2 2 A 7 

TURNF 

ID 

<diagn,<utcunf 


i 5 A 7 

0000 

22BD 




004600 

1 5 A 9 

07FC 



d 1 OF 

>tuknf 

004601 

1 5Am 

6000 

22A4 

TURNb 

10 

<WkNOGO,<QT TASK 


15Al 

0000 

22C2 




U0460c 

15AL 

07 F C 



b I OF 

>TUkNB 

004603 

1 5 AF 

9600 

218D 


LDR 

$Rl,<OFbtTR 

Gu4o04 

1561 

9680 

1 C6o 


LAb 

$blv <RBUF 

004605 

1563 

8752 



Cl 

= $R2 

004606 

1564 

C600 

22CA 


LDR 

$R4,<1NKANG 

004607 

1 5b6 

EbOO 

22B3 


LDR 

$R6,<TESTMD 

004606 

15b6 

P 600 

22BE 


LDR 

$K7,<OTCUNT 

0U4b09 

1 5dA 

6055 


TURNC 

10 

= $R5 * =$R4 


1 5bb 

0054 





004c lu 

1 5bC 

0 7FL 



BIOF 

>TUkNC 

004611 




* 



00461c 




* READ 

WKAPPtD DAI A BACK 

U04 6 1 3 




* 



0U46 14 

1 5bD 

6056 


TURND 

1U 

=$ko,=$K7 


15bt 

0057 





004 o 1 5 

1 5bF 

6030 

22 AC 


1 o 

<LCHNO,$R3,<OTCONT 


1 5C i 

0000 

226E 




004 6 10 

15C3 

6000 

22 AA 


lu 

<1NDEX,<0TCUN) 


1 5C5 

0000 

22DE 




004617 




* 



00461b 

1 5c7 

8070 

7C4l 


lu 

= Z» 7C4E»,<OTCJNT 


15C9 

0000 

22bt 




G04o19 

1 5Lo 

6070 

tibEA 


lu 

= Z * 68EA•,<UTCJNT 


1 5Cg 

0000 

c2bE 




004 o 2 U 

1 5 CP 

60 70 

2094 


IU 

= Z * c094 *,<OTCJNT 


15D1 

0000 

22BE 




004621 

1503 

6070 

703L 


10 

= Z» 703t»,<UTCJNT 


1505 

OOOU 

22BE 




004b2c 

15 07 

6070 

A200 


lu 

=Z'A200•,<UTCJNT 


1509 

0000 

22BE 




0 04 c 2 3 

15Db 

607u 

2100 


lu 

=Z 1 2100•,<OTCJNT 


15 Do 

0000 

22BE 




004624 




* 




************************************************************************ 


FILL READ bUFFEK WITH 33 * s 
GET WRITE OFFGET 


DIAGNOSTIC CONFIGURATION 

WRITE* NO MOTION 

GET READ OFFSlT 
POINTER TO KEaD buffer 
range counter 

INPUT RANGE CnANNEL CONSTANT 
TEST MODE CGN1R0L WORD 
OUTPUT CONTROL WORD CHANNEL CONSTANT 
(GET RANGE,) 

WAIT TILE DONc. 

(SET TtST MODt) 

(OUTPUT LOGICAL CHAN NMBK) 

(SET INDEX MUut) 

(STOP IHL TIMlR) 

(SET bP TO TMtf*l) 

(CLEAR NON-DAIA-SERVICE-KEQUEST) 
(READ FIFO TO ACU) 

(wRITt FROM AcU TO SP) 

(DATA BYTE TAkEiM* BUMP) 
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0 U A 6 2 5 

1 5DF 

8000 

22b I 


IU 

<SCkDY,<OTCQNT 

(SET CHAN RDY) 


15L1 

GOOD 

22BE 




004626 

15L3 

8000 

22B4 


lu 

<WAiTLP*<OTCONT 

(BRANCH TO WAiT LOOP) 


1515 

GOOD 

22bt 




004627 

15L7 

8000 

22B0 


IU 

<NOIeST,<UTCONT 

(GET OUT OF Tl,ST MqqE) 


15E9 

0000 

22BE 




004626 




* 




004629 

1 5 ED 

6055 


TURNE 

lu 

= $R 5 , <INWAIT 

(XFER DATA TO R.H. BYTE ' 


1 SEC 

0000 

22CF 




004630 

15 EL 

07FD 



blUF 

>TUKNE 


004631 

1 6EF 

D 10b 



STH 

SR5 , $B1 • *$R 1 

put daia in Buffer 

00463c 

1 5 FO 

8 AD2 



INC 

= $Rc 

BUMP CNTK 

004633 

1 5F1 

A900 

219E 


CMR 

$R2,<RNG 

COMPARE TO RAnGE WRITTEN 

004634 

004635 

1 5F3 

0200 

i 5BD 

* 

Bl 

<TUkND 

B IF NOT DONE, GET MORE 

00463b 

15F5 

DC80 

15F 6 


LUb 

3>B5»<TUKNb5 


004637 
004636 

15F 1 

6385 


* 

JMP 

$B5 


004639 

15F6 

0000 


TURNE5 

KtSV 

SAF .0 



004640 

004c41 

Q04b4c 


004657 

004c56 

004659 


162A 
162C 
1 62 E 
i 62 F 


FdCO 0003 
0360 0000 
0F60 
216C 


004696 

004699 

004900 


004914 


004922 

004923 

004924 

004925 

004926 

004927 


165F 

1661 

1663 


8960 2191 
0960 1668 
8000 22AB 


************************************************************************ 

* COMPARE WRAPPED BACK DATA ~ DATA SENT 

* 


004643 

1 5 F 9 

DF 60 

160E 

COmPAR 

STB 

$B5,<CMPRb5 


004644 

15Fb 

D360 

136E 


LNJ 

SB5,<GETRNG 

INPUT RANGE REMAINDER 

004645 

15Fu 

D380 

16EB 


LNJ 

SB5,<INiZ 

INITIALISE 

00464b 

15FF 

6980 

2I9D 


CMZ 

<RAnGE 

CHECK IT 

004647 

ibO 1 

09U4 



BE 

>CMPRA 

B IF OK, Sb =0 

004b4b 

1 b02 

D380 

1030 


LNJ 

$B5,<FNER 

RANGE REMAINDER SB = - 

004649 

1 b04 

3039 


FNER09 

DC 

•09 • 

LABEL2 

004650 

1605 

9B60 

17E6 

CMPRA 

LAd 

S»bl ,<wBUF 


0U4b5 1 

160 7 

AB80 

1C66 


LAB 

Sb2,<RBUF 


004g5c 

1609 

D360 

123F 


LNJ 

SB5,<1 SB 

COMPARE BYTES 

004653 

lbOd 

DC60 

160E 


EDb 

Sb5,<CMPRb5 


004654 

1 bOD 

6385 



JMP 

SB5 


004655 




* 




004b5b 

160 b 

0000 


CMPRB5 

RESV 

4 > A F ,0 



*************************** ********************************************* 
* FILL A dUFFtR WITH BYTES OF INCREMENTING DATA. 


004660 




* sbl 

= BUFFER 

004661 




* $R4 

= KANuE 

004662 




* $R7 

= STARTING DATA-bYTES 

004663 




* 



004664 

160F 

6F00 

21A5 

INCBFR 

Save 

<SAvE1,=Z•7F7F• 


1611 

7F7F 





0Q4b65 

1612 

caoo 

219E 


LDR 

*R4,<RNG 

004666 

1614 

C370 

0002 


DIV 

SR4,=2 

00466 f 

161b 

FF71 


1NCBA 

str 

iR7 , +$Bi 

004666 

1 b 17 

FA 70 

0202 


ADD 

$R7,=X»0202* 

004669 

1619 

06b A 



dCF 

>INubC 

0046 1 0 

1 6 1A 

89D7 



Cml 

= SR7 

004671 

1 6 1D 

0984 



bNE 

>INobb 

004672 

16 1C 

F 6 70 

FFOO 


LOR 

SR7,=Z'FF00» 

004o73 

16 1 E 

OF 6 5 



b 

>INubC 

004874 

1 6 1 F 

F 970 

0101 

INCBB 

CMK 

*R7,=X»0101 • 

004675 

1621 

0982 



bNE 

>INCbC 

004676 

162c 

/ C01 



LDV 

SR 7 , = 1 

004677 

1 b2 3 

4773 


INCbC 

bDEC 

$R4,>INCbA 

004678 

1624 

8F60 

21A5 


KSTR 

<SAVE1,=Z* 7F7F• 


1626 

7F7F 





004c 7 9 

1627 

6385 



JMP 

sb5 

004680 




************ 

*************** K*1 

004681 




* DO A 

CARRIAGE ReTURN/LINE FI 

00468c 




* 



004683 

1626 

DF 60 

1633 

CRLF 

Sib 

SB5,<CRLFB5 

004684 





CALL 

ZVST.eVST C,NU W L 


BYTES 


-> WORuS 


(CRLF) 


004685 

1 b30 

DC80 

1633 

LDb 

$B5,<CRLFb5 


004686 

lo32 

6365 


JMP 

SB5 

RETURN 

Q04o67 




* 



004688 

1 b33 

0000 


CRLFB5 KtSV 

*AF,0 


004869 




************* 

************** * ********* ********* 

004890 




* CLEAR MODES 

TO -o -1 -2 -3 


004691 




* 



004692 

lb34 

9870 

2D30 

CLRMOD LDR 

SRI, = *-0» 


004693 

ib36 

2CFC 


LDV 

SR2,=-4 


004694 

1 b3 7 

9 F 2 0 

2106 

CLRMA STR 

SKI ,<DXMD*4.3»R2 

STORE MODE 

004695 

1639 

8 AD 1 


INC 

s $R 1 


00469b 

163a 

2760 

1637 

BINC 

*R2,<CLRMA 


004697 

16 3c 

8365 


JMP 

s>B5 

RETURN 


004901 

IbiD 

DF 60 

16EA 

OUTRUN STb 

i»B5 , <UL I b5 

00490c 

163 F 

9600 

2166 

LDR 

$R1,<LABEL1 

004903 

1641 

9 FOG 

21b6 

SIR 

SRI,<T EMPB 

004904 

1643 

D380 

0FA2 

LNJ 

$b5,<LABEL 

004905 

1645 

514C 


OL DC 

•QL* 

004906 

1 646 

6753 


CL 

= $R3 

004907 

104 7 

9C80 

218C 

LOB 

$B1,<NULL 

00490b 

1649 

9F80 

2lb3 

STd 

SBl,<SLUb 

004909 

lb4d 

8700 

21B4 

CL 

<STaT1 

00491U 

164D 

8700 

2 IBS 

Cl 

<STaT2 

004911 

1 b4F 

8700 

2191 

CL 

<QL 1 FLG 

004912 

1651 

6700 

20F 5 

CL 

<DRIVE 

004913 

1653 

D380 

1341 

LNJ 

$B5,<SETCHN 


************************************************************************ 
* RUN OLf AND CHECK THE RESULTS. 

GET CURRENT LaBELI 
SAVE IT 

LABEL 1 

DRIVE (PORT) =0 
CLEAR ERROR PARAMETERS 

WILL StT AFTEk FIRST RUN OF ULT 
START WITH DR * VE ZERO 
CONFIGURE CHANNEL CONSTANTS 


0049 1 5 





* SET UP FUR 

MiSSiNG RESOURCE 

TRAP 

00491b 





* 


004917 

1 b 5 5 

9B60 

2311 


LAd 

$bl,<TSA1 

WE DON'T WANT ANY TRAP FULL INTERRUPTS 

00491c 

1657 

9F80 

2311 


STb 

$b1,<T SA1 

004919 

1659 

9F60 

0000 

X 

STB 

$bi,<zhntsa 

004920 

165b 

9B60 

16E5 


LAB 

SBl,<QLTTH 

TRAP HANDLER 

004921 

1650 

9F 60 

0000 

' X 

STB 

$Bl,<ZHTH15 

TRAP VtCIOR 


* RUN ULT {ONE TIME ONLY) 

* 

ULTAA CMZ <QLIFLG 

bNE <QLT C 

ULTA IU <INLbDC,<UTCGNT 


B IF ULT HAS ALREADY RUN 

RUN QL1* TRP TO QLtL VIA QLTTH IF NAK 



TiT lE MI0S3,»KlV G« 

NINE 

TRACn pe/nrzi 

MAg TAPE T6 v (SAF) 


16 b 5 

0000 

22bE 




00492b 

16 0 7 

07FC 



BIuF 

>QL 1 A 

004929 




* 



00493o 

166b 

8900 

2191 

ULTC 

LbT 

<QL1F Lo, = 1 


1 66 A 

0001 





004931 

1 66b 

8280 

20E9 


Ld 

<BDCFLG,=1 


1660 

O00 1 





00493^ 

1 6b L 

U5Gb 



dBl 

>QLTE 

00493c 




* 



00*93* 




* "BDC2" F 1 kMwARE, GET QLTI 

004935 




* 



00493b 

looF 

3980 

I6CA 


bNLZ 

SR 3,< QL T L 

00493 7 

16 71 

8051 


ULTD 

lu 

=SRi,<IN0LT2 


16 72 

0000 

22C7 




00493b 

1674 

0 7 F 0 



biuF 

>QL i 0 

004939 

1675 

1048 



Suk 

sR 1 * 8 

004940 

16 76 

9F0U 

2192 


S I K 

SR 1 * <QLTI 

004941 

16 78 

0Fb9 



b 

>QL I F 

00494c 




* 



004943 




* "BDC3” FIRMWARE, GET QLT I 

004944 




* 



004945 

16 79 

8051 


QLTL 

10 

=SRl,<INQLT 3 


16 7a 

0000 

22Cb 




00494b 

1 b7C 

07FD 



BlOF 

>QL 1 E 

00494 7 

lb 70 

95 70 

OOFF 


And 

SR 1, = 2 * OOFF * 

00*94b 

16 7F 

9F00 

2192 


STR 

Sk1,<0L TI 

004949 




* 



004950 




* NOW 

CHECK 

*LT RlSULTS. F11 

004951 




* 



00*95<: 

1681 

9570 

GOOF 

QLTF 

And 

SR 1, = 2’OOOF' 

004953 

1683 

9970 

OOOF 


CMk 

SR 1, = 2 1 OOOF• 

004954 

1685 

0906 



bt 

>QL TG 

004955 

1686 

0380 

1030 


LNJ 

Sb5,<FNER 

00495b 

1 68b 

5432 


FNLRT2 

OL 

• T 2 • 

004957 

1689 

OF 80 

16CA 


b 

<QL I L 

00495b 




* 



004959 




* NOW 

CHECK 

DllS FOR AUAPTE 

00*960 




* 



00*961 

1686 

9800 

2192 

QLTG 

LDK 

SRI,<QLTI 

00496c 

1 6 6 u 

100b 



SUL 

SRI,8 

004963 

1 68L 

9F0O 

21B7 


STR 

SRI,< TEMPA 

00496* 

1 690 

8752 



CL 

= SRc 

0U4965 

169 1 

8700 

217E 


CL 

<FA1L 

004966 

1693 

9870 

5030 


Lor 

SKI,=A»PO» 

004967 

1695 

9F00 

169E 


SIR 

SR 1,<F NEPPO 

00496b 




* 



004969 




* CHLCK "QLTI" FOk ALL PORT: 

004970 




* 



004971 

1697 

82A0 

21B7 

uLTH 

Ld 

<TEhPA.sR2 

00497c 

ib99 

0506 



bdi 

>QLT J 

004973 

169 A 

8 ABO 

217E 


INC 

<FA1L 

00497* 

16 90 

0360 

1030 


Lnj 

Sb5,<FNER 

004975 

1 69L 

5030 


FNLRPO 

oc 

«P0* 

00497b 

1 69F 

8AD2 


QLT J 

liiC 

= $Rc 

00497 7 

1 6 AO 

b A80 

169E 


INC 

<FNERPO 

00497b 

16 A2 

2003 



CMV 

SR2,=3 

004979 

16 AS 

U3F * 



bLt 

>QL 1 H 

004980 

1 6 A4 

8980 

217b 


CM2 

< F A1L 

004981 

1 6 A6 

0900 

16CA 


BE 

<QL I L 
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QLT HAS RUN, oET FLAG 
CHECK WHICH FiRHWARE lQAU 
B IF "BDC3 M 


B IF HUT DklVc. 2 ERq, IE.* BONE 
GET QU 


RIGHT JUSTIFY 
sAvt it 
CONTINUE 


GET ULTI 

CLEAR LEFT bYTE 
SAVE II 

RST CHECK MDC. 

(Ski SI ILL CONTAINS QLT!) 

6 IF MUC LGUKd UK 

QLT FAILED, BuS OR MDC NO 

LABELS 

TRY NEXT CHANNEL 
k PORTS 0-3 


LEFT JUSTIFY 

SAVE QLT FOR IESTInG 

USE AS INDEX 10 FOUR PORTS 

WILL SET IF A PORT FAILED 

PORT lERU LAbcL2 

RESET LABEL2 


GET QLI BIT 

B IF PURI UK 

LOG THE FAILURE 

ADAPTER PORT EAILED THE QLT 

LABEL2 

SET FOR NEXT HORT 
SET LABEL2 

B IF NUT DONE YET 
CHECK FOR FAILURES 
B IF ALL PURTb OK 


004933 

00*934 

004985 

004986 

004987 

00498b 

004989 

004990 

004991 

00499c 

004993 

004994 

004995 

004996 


004997 
00499c 
004999 
OOSOOo 
005u01 
00500c 
005003 
005004 
005005 
00500b 
005007 
005008 
005009 
005u10 
005011 
005u1c 
005013 
005014 
005u15 
005016 
0 0 5 u 1 7 
005u 1 c 
005019 
005020 
005021 
005022 
005O23 
0O5O24 
005025 
005026 
00502 7 
00502c 






* NOW* 

# 

IF "bDC3", REPORT RESULTS 

OF " 0 L T J " 

16A8 

b2 80 

20E9 



Lb 

<bDcF LG, = 1 


1 0 AA 

0001 







1 6 Au 

0580 

16CA 



bbF 

<QL T L 

B IF bDC2, DUnE 

1 b AD 

9800 

2160 



LDk 

SR 1 * <FI KM 

CHECK FIKMWARl REV 

16 AF 

1D21 




CMV 

$R1 , = X * 21 * 

REV *21 

16dO 

0200 

16CA 



dL 

<QL T L 

b IF EARLIER 1 HAN *21 

1 6u2 

8051 



QLIK 

1U 

= $R1,<INQLT J 

GET "uLTJ" 

lbbi 

0000 

22C9 






16 b 5 

07Fu 




blOF 

>QL TK 


16bo 

1048 




SuK 

SR 1,6 

RIGHT JUSTIFY 

lob 7 

9970 

OOFF 



CMR 

SRI ,=2»00FF» 


16b9 

0911 




bE 

>QL 1 L 

b IF NO ERROR 

1 6bA 

9F00 

2167 



STR 

$k1,<TEMPA 

SAVE IT 






CALL 

cVSma, TEMPA,VRbL 

CONVERT CONTENTS To ASCII 

1 6bC 

Fb CO 

0003 






1 6bL 

D380 

0000 

X 





1 6CU 

OF 80 







loci 

2 1 b7 







ioC* 

2 IBB 







16Cc 

9800 

2160 



LUk 

SR 1,<VR8L*2 

GET ASCII ( LAoEL2 ) 

10C5 

9 F 0 0 

16C9 


- 

STR 

SR 1,< F NeRQL 

SAVE AS LAbELz 

16C7 

0360 

1030 



LnJ 

$B5,<FNER 

QLT FAILED, ScE HEADER FUR DETAILS 

1 6L9 

0000 



FNERUL 

* 

RLSV 

1,0 

SPACE FUR LAbc.L2 





* SET i 

UP FOR 

NEXT CHANNEL (DRIVE) 


16CA 

bAD3 



QLTL 

INC 

= $R 3 


1 oCu 

9630 

20 Fb 



LDR 

SRI,<DRIVE0.SR3 

GET CHANNEL AoDRESs 

loco 

9F00 

20F5 



STR 

$R1,<URIVE 


ibCF 

0 380 

1341 



LNJ 

SB5,<SETCHN 

configure addresses 

loDl 

3D03 




CMV 

SR3 , =3 


16D2 

03b0 

165F 


£ 

bLt 

<GL1AA 

LOOP bACK IF nOT DONE YET 





* TEST 

DUNE, 

RESTORE TRAP HANDLER 

AND RETURN 

loD* 

6980 

2191 



CM2 

<QL T FLG 


16D6 

0984 




BNE 

>QL1 M 

B IF QLT WAS RUN 

IbD 7 

0380 

1030 



LNJ 

SB5,<FNER 

QLT NLVEK WAS RUN, GOT NAK•ED 

1609 

5430 



FNERTO 

DC 

• TO * 

LABEL2 

IoDa 

9B80 

0F9A 


QLTM 

LAb 

SB1*<TH15 

NORMAL TRAP NaNDLEr FOR**. 

1 oOC 

9F80 

0000 

X 


STB 

Sbl,<2HTHI5 

•• .MISSING RSoUKCE TRAP 

16DL 

9600 

21B6 



LUK 

SRI * <TEMPb 

GET ORIGINAL LAbELi 

lbEO 

9F00 

2186 



STR 

SR 1,<LAtiEL1 

RESTORE IT 

1 6E2 

DC60 

1 6E A 



LUb 

Sb5,<QLTb5 

RETURN ADDRESo 

16E4 

8365 




JMP 

SB5 

RETURN 





* TRAP 
£ 

HANDLER FOR MISSING RESOURCES IN TEST »QL1RUN» # 

16E5 

9B80 

16CA 


QLT 1 H 

LAb 

*B1,<ultl 

continuation address 

1 oE 7 

9 FbO 

2317 



STB 

Sbl,<T SA1P 


1 6E9 

0003 




RTT 


RETURN 




TITLE MTUS3 n *kEV G* 


NINE TRACK PE/NRZI MAG TAPE T6V (5AF) 
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005029 
005030 
00503i 
005U32 
005033 
005034 
005035 
005036 
005037 

005036 

005039 

005040 
005U4i 
005042 
005O43 
005044 
005045 
005O4o 
005047 
005046 
005049 
005O5O 
005051 
005052 
005053 
005054 
005055 
0 0 5 0 5 o 
005057 
005056 
005059 
005060 
005061 
005064 
005063 
005064 

005065 
005066 
005067 
0G5u6b 
005069 
005070 
005071 
005072 
005073 
0050 7 4 
005u 7 5 
005076 
0O5O77 
0 u 5 0 7 b 
005079 
005060 
0O5081 
0O5U82 
005UB3 
0o5ob4 
005O65 
005066 
005087 
005066 
005O89 
OO5O90 
005091 
005092 
005093 
005094 
005095 
005096 
005097 
005096 
005099 
0 o 5 10 0 
005101 
005104 
005103 
005104 
005105 
005106 
00510/ 
005106 
005109 
005110 
005111 
005112 


005113 
005114 
005115 
005116 
005117 
005116 
005119 
005 120 

005121 
005122 
005123 
005124 
005125 
005 1 2o 
005127 
005126 
005129 
00513U 
005131 


16EA 

0000 


QLTB5 

RtSV 

$AF * 0 




******************************* 
* DO BDC INITIALIZE. 

M. 

16EB 

DF80 

1706 

INIZ 

Sib 

$B5 %<1NIZB5 

16ED 

6000 

22Ab 


10 

<INZBDC.<OTCONT 

1 oEF 

0000 

22bE 



16F1 

07 FA 



BIOF 

>INU 

16F2 

6000 

21B7 

1NIZA 

lu 

<tempa,<inrupt 

1 6F 4 

0000 

22CB 



16F0 

07 FC 



BIOF 

>1N1ZA 

16F7 

9C60 

216C 


LDb 

$Bli<NULL 

loF9 

9F 60 

2 1B3 


STB 

$61*<SLDB 

i6Fb 

6700 

21B4 


CL 

<STaTI 

16FD 

6700 

2 1B5 


CL 

<STAT2 




* CHECK THAT 

initialize worked 

1 6 F F 

6960 

21b7 

INIZB 

CMZ 

<TEmPA 

1701 

0904 



BE 

> INIZC 

1702 

0360 

1030 


LNJ 

SB5 *<FNeR 

1704 

3234 


FNER24 

DC 

*24* 

1705 

DCbO 

1706 

INIZC 

LDB 

$B5 » <1NIZB5 

1707 

6365 



JmP 

$B5 

1706 

0000 


1NIZB5 

klSv 

SAF*0 


1743 
1 7* 1 
1/49 


FbPO 0001 
0360 0000 
Of-oO 0237 


175C oP60 1769 


INITIALIZE ANd RUN QLT 
CHECK IF MDC iS ACCESSIBLE 

CLEAR PARAMETERS FqR ERROR REPORT 


CHECK KUPT CONTROL LEVEL» SB ZERO 
B IF OR 

INI2 DIDN’T Do IT’S THING 
LABEL2 


RETURN 

******** * ** * *********** ****** **** * ********* ***************** ********** ** * 

* CHECK MEASURED TIME AGAINST NOMINAL LIMITS* ♦/-35%. 

* NOMINAL VALUE IS FOR 45 IPS MACHINE. 

* 

pointer to nominal value 

GET ID CODE 

SPEED BITS 
B IF 45 IPS 
B IF 75 IPS 

ID CODE INDICATES INVALID SPEED 
LABEL2 

* 45 IPS DRIVE 

NOMINAL VALUE 
N X 65% 

B IF NG 
N X 135% 

B IF OR 

TIME NG FOR 4d IPS DRIVE 
LABEL2 
RETURN 

75 IPS DRIVE 

GET NOMINAL VaLOE 
N X 45/75 X 63% 

B IF TIME NG 
N X 43/75 X 135% 

return 

TIME NG FOR 73 IPS DRIVE 
LABEL2 


RETURN 


1709 

9CF5 


TIMCHK 

LDB 

SB1*+$B5 

17UA 

DF60 

1744 


SIB 

$B5,<TIMCb5 

170C 

6051 


f IMCA 

10 

= SRU<INiOEN 

1 7 0u 

0000 

22C6 




17 OF 

07 FO 



BIOF 

>TIMCA 

1710 

9570 

0003 


and 

$R1 * = 3 

1712 

1 DO 1 



CMV 

$R1 * = 1 

1 /13 

0900 

171b 


BE 

< TIMCB 

1715 

1D02 



CMV 

$R 1 * = 2 

17io 

0900 

172F 


bt 

<TIMCD 

1716 

D360 

1030 


LNJ 

SB5 »<FNLR 

1 7 1A 

363 7 


FNEK67 

DC 

•67* 




* CHECK TIMING (♦/-> 35 %) F 

17 1 D 

F 601 


T imcb 

LDR 

3>K7 * SB 1 

1 7 1C 

Fb70 

0041 


MUL 

4R 7 * = 65 

17 It 

F 3 7 0 

0064 


D1 V 

$R7 * = 100 

1720 

F 900 

2 IbA 


CMR 

4R7 * <T IMCNT 

1 722 

0309 



bG 

>TIMCC 

17 23 

FB70 

0087 


MUL 

iR7 * = i35 

17 25 

F370 

0041 


D1 V 

4R‘7.s65 

172 7 

F900 

2 1 BA 


CMR 

SR 7,<TIMCNT 

1729 

0300 

1741 


bG 

<TIMCF 

172b 

D360 

1030 

TIMCC 

LNJ 

$b5 1 <FNER 

1 720 

3230 


FNER20 

DC 

*20* 

17 2 E 

0F93 



b 

>TIMCF 




* CHECK TIMING <♦/- 35%) FO 

1 72 F 

F 801 


TiMCD 

LOR 

$R7»Sbl 

1730 

FB70 

002 7 


MUL 

$R7*=39 

1 734 

F 370 

0064 


01V 

SR7,=100 

1 73* 

F 900 

2ldA 


CMR 

%R7 » <T1MCNT 

1 736 

030b 



BG 

> TI MCE 

173 7 

FB70 

006 7 


MUL 

*R7,=135 

17 39 

F 370 

0041 


DiV 

$R7,=65 

1 73d 

F 900 

2 IBA 


CMR 

*K7,<TIMCNT 

1730 

0304 



bG 

>TIMCF 

1 73c 

0360 

1030 

T I MCE 

LNJ 

465,<PNER 

1740 

3232 


FNER22 

* 

% 

PC 

♦22* 

1 741 

DC60 

1744 

TIMCF 

LOb 

SB5 »<TlMCb5 

1743 

6365 


* 

JMP 

4b5 

1744 

0000 


TIMCB5 

RLSV 

JbAKtU 


***************************** 
* INVOKE THE PATCHING LIBRARY 


PCH 


CALL ZVSPCH 


******************************************* 

ROUTINE 

B <STaRT RESTART 


b <NEaT RETURN TO NEXf 

******** **************************************************************** 

* REWIND TO oUT AnD WAIT FOR ROY 


1 74b 

0F60 

175b 

GObOT 

ST d 

$B5,cbOTb5 


1 740 

6730 

20FE 


CL 

<0XFN.$R3 

CLEAR FILE COuNT 

1 74F 

6730 

2 10E 


CL 

<DXKN.$R3 

CLEAR RECORD lOUNT 

1751 

6000 

2299 

GOBOTA 

10 

<REwIND»<U1TASK 


1753 

0000 

22C2 





1 755 

0 7 F C 



BIOF 

>GObOTA 


17 56 

0360 

OPEC 


LNJ 

465*<INSTAT 

wait for BUT 

1756 

0C60 

175b 


LOB 

465 1 <B0Tb5 


1 7 5a 

6365 



JMP 

$B5 

RETURN 

1 75b 

0000 


BO TBS 

RESv 

4AP * 0 



1 7 51 
1 /oO 
17 64 
1763 


FBCO 0003 
0360 0000 
OF 60 
1C66 


************************************************************************ 
* FILL RlAD oUFFEK WITH *3333* FOR RANGE OF 2046*256 BYTES (1152 WORDS) 

FRb33 ST b SB5.<FR03b5 

CALL 2V$F,NbUF,X3333,LENGTH 



TITLE MT0b3i•REV G» 


NINE TRACk PE/NR2I MAu TAPE T&V (SAP) 
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1764 

E lbP 








1 7 6 3 

2169 







00313l 

176o 

OC60 

1769 


LOb 

$63 $ <FRb3b3 



OOt) I 33 

1706 

6363 



JMP 

$65 

RETURN 


003134 





* 




003133 

1769 

OOGU 



PR6365 RcSV 

SAP » 0 



003i3o 





************** 

********************************************************** 

003137 





* CHECK FOR t-U-T WHILE IN OEBUG 

huDE 


00313o 





* 




003139 

176A 

OF 60 

177A 


EOTCHK STlj 

$B5,<E0Tb5 



003i4u 

17 6C 

6260 

2164 


Lb 

<STa I1»=2 • 0100 * 

eut 61r 



1 766 

0100 







003141 

1 76P 

0366 



bbF 

>E01 RET 

RETURN IF NOT 

EOT 

00314^ 





CALL 

2V$i.2 V$TC»HSeGT 




17 7u 

FbCO 

0003 







1774 

0360 

uOOO 

X 






17 74 

OF 60 








1773 

2233 







003143 

1 7 76 

0000 



h l t 


HIT ’’EXECUTE" 

TO CQNTlNUt 

00314h 





* 




00314p 

1777 

0C60 

177 A 


EOT RET LOb 

$b3 »<EOlb3 



00314o 

17 7 9 

6363 



JHP 

$B3 

RETURN 


003147 





* 




00314o 

17 7 A 

0000 



EOT65 RESV 

SAFtO 



0u3149 





************ **** ******* ************************************* ****######** 



TITLE MTUJJWkEV U» 


NINE TRACK PE/NRZI MAG TAPE T6v (SAP) 
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005150 
005 i 5 i 
Gob i.5L 
OGbi5 3 

Ou5i54 

005155 
005 15t> 
005157 
005156 
00515V 
005160 

005 i 6i 
00516c 
005163 
005164 
005165 
005i6o 
00516/ 
Oub166 
00516V 
005170 
005171 
005174 
005173 
005174 
005175 
005176 
005i 77 
005l7o 

00517V 

005180 

005181 

00518c 

005183 

005184 

005185 

005166 

005187 

00 5 i bo 

005 i8V 

00519u 

005191 ' 

005194 

005193 

005194 

005195 

00 5196 

005197 

005198 

005199 

005^00 

005401 

0 0 5 4 04 

005403 

005404 

005405 

005406 

OObEO / 

005406 

00 5 c 0V 

005410 

00 5 c 11 

005414 

005c13 

005414 

005c15 

005416 

00541 / 
005416 
005c 19 
005440 
005441 
005444 
005443 
005424 
005425 
005426 
005427 
005426 
005429 
005430 
005431 
005434 
005433 
005434 
005435 
005436 
005437 
00543b 
005439 
005440 
005441 
005444 
005443 


* WAIT PuK N/bSY. PIKST MAKE SURE THAT SOME OPERmTION HAS BEEN 

* i (MI TIATLG ON Tht. DRIVE. T HEN DO THE TlMt-OUT. iHREE TERMINATIONS 

* ARE POSSlbLc; 

* 1. NORMAL TERMINATION - NON INTERRUPT* WAIT FOR DEVICE N/bSY. 

* 2. NORMAL TERMINATION - INTERRUPT« 

* 3• TIMEOUT EkROR - RTC INTERRUPTS OUT OP WAiT LOOP. ISSUE A 

* "STOP 10” COMMAND AND CONTINUE. 

* 


177b 

DP 80 

1 7E5 


WAiT 

ST o 

$b5* <WA1Tb5 


177b 

1 7 7 P 

6000 

0000 

4190 

44CA 



10 

<RANGt * < I IMRANS 

TRY AN 10 INSTRUCTION 

176 1 

078 4 

1030 



b 1 UP 

>WA i TA 

b IP OK 

1 7 b 4 

0380 


FNER60 

* 

LiM J 

$05 *<FNER 

SB IN MIDST OP OPERATION* SHOULDNiT.. 

1 784 

8630 



DC 

•60* 

LABEL ...GEi ACKiED. 

17 85 

9670 

0256 


WAI TA 

L DR 

$Rl*-600 

SET UP FUR 5 uEC TIMEOUT (A T 60 Hz) 

1 7b 7 

9P00 

0000 

X 


S 1 R 

$R1 * <ZHRT CC 

IF TlMtOUT, RuPT To LEWS 

1 / 8 V 

8 700 

0000 

X 


CL 

<ZHkICI 

1 76b 

9b60 

4300 



LAb 

$bl *<SA5DV 


1760 

9 P 60 

0005 

X 


ST b 

$bl *<ZHISAZ+5*$AF 

RTC INTERRUPT VECTOR 

I 7 8 P 

9B8U 

1 7C4 



LAd 

$Bi* <LEVV5 

1 791 

9 P’60 

4303 



STb 

$B1*<SA5P 

RTC RUPT HANDLER 

1798 

0004 




RTCN 


START 1 HE CLOs-K 





* START TO Db 

NORMAL WAIT TIMEOUT 

(RUNNING AT LtvEL i£) 

1794 

8000 

419D 


WAITE 

10 

<KAnGE * < I NRANJ 

WAIT FUR N/dSf 

1 796 

0000 

22CA 





1 7 9o 

07 P C 




bi OP 

> WA 1 T b 


1799 

0005 




RTCF 


DONE* STOP The CLOCK 

179M 

D380 

0PC5 



LNJ 

$05 * <TI ME 

WAIT FOR RuPT UP IT»S CUMING) 

179C 

0001 




Du 

1 

I MS 

1 7 9 D 

D38Q 

OPEC 



LNJ 

$65 *< INSTAT 

GET STAT 

i 7 9 P 

9080 

2186 



LDH 

$R1 * <LABEL1 

CHECK LABEL FuR DEBUG MODE 

1 7 A1 

1D44 




CMV 

$R 1 * = • D • 

IF DEbUG MODE* NO RUPTS ALLOWED 

17A4 

0900 

1 7E2 



bL 

< WA 1 ID 

0 IP MUUt •D* 

17 A 4 

V600 

2186 



LDR 

$R1 * <LAbLL1 


I 7 A6 

9970 

4550 



CMR 

$R1 * = »EP» 


I / Mb 

0900 

i 7E4 



bo 

< W A i T D 

0 IP end-pass* don» t rupt 

17 am 

9830 

20PE 



Lor 

$R 1 * <DXPfM. $R3 

GET PILE NMBK 

17 Au 

lDOb 




CMV 

$R1 * =6 

GT 6 PILES? 

1 /AD 

0A60 

17E2 



OALE 

< W A1T D 

0 IF 8 OR EES$ f SHOULDN'T RUPT 

RUPT EXPECTED BUT DIDN’T RUPT 

17AP 

D360 

1030 



LNJ 

$05 * < P Ntk 

17bi 

3631 



FNER61 

DC 

•61 • 

LABEL4 ...RuPT LvL=lO* CP LVL=15 

17b4 

0P9E 




0 

>WAi IE 

FLUSH PENDING RUPT, RETURN 





* WE KURToD 1 

0 Lt'WlO. MAKE SURE 

THAT RUPT WAS EaPECTeD (QVtR 6 FILES). 

I7b3 

0005 



LEW 10 

R TCP 


STOP THE CLOCK 

1 7d4 

9830 

20PE 



LDR 

$R1 * <DXP N.$R3 

GET FILE NhbR 

1 7bo 

1 DOb 




CMV 

$R 1 * = 8 

17 07 

0306 

OPEC 



uG 

> WA 1 TG 

B IF RUPI EXPECTED, ok 

1708 

0380 



L(MJ 

$b5*<INSTAT 

17 oA 

D380 

1030 



LNJ 

$b5 *<PNER 

ShOOLDN•1 HAVb RUPJED* DfcV LVE SB 0 

I /OC 

3632 



PNER62 

DC 

•62 • 

LABEL2 

17bb 

9B60 

1 7E2 


WAITG 

LAb 

$01*<WA1TD 

RETURN ADR pRuM WAIT ROUTINE 

1 7 OF 

9P80 

2 30F 



STb 

$01*<SA15P 

1 /Cl 

6E70 

8 OOF 


LEVXH 

LEV 

= Z•oOOO»♦ 15 

SUSPEND 10 LVb 15 

17C3 

OF PO 




d 

> L E V V10 

SET SA10P TO l.VL 10 FOR NEXT TIME 


* WAIT TIMED OUT. STOP THE TRANSFER and REPORT ThE ERROR* THEN PICK UP 

* THE PIECES AnU kESUME 


* 


1704 

0005 



LEW5 

RTCF 


5T0P THE CLOCn 

17 C5 

60U0 

22B2 



10 

<STOPIO,<OTCO\r 

STOP THE GPERmTION IN IT»S TRACKS 

1 7 C7 

0000 

22 BE 






17C9 

U /U4 




BIOT 

>WAiTC 


17 Cm 

D380 

1030 



ENU 

$B5 *<PlMER 

STOPIO SHOULD ALWAYS bt ACK • ED 

17CC 

3633 



PNER63 

DC 

• 63 • 

LABEL4 

1 7CD 

D38U 

1030 


WAITC 

LNJ 

$B5,<PNER 

OPERATION TIMED OUT (5 StCONDS) 

1 7CF 

3634 



PIMER64 

DC 

•64* 

LABEL4 

17 DU 

9C60 

000 A 

X 

WAITE 

LDd 

$B1*<4HiSAZ"lD^$AF 


17D4 

8700 

UOO A 

X 


CL 

<ZH1SAZ+10*$AF 

INHIBI! LVL lu RUPTS 

1 7D4 

6C5 1 




SIS 

= $R i 

GET CURRENT CP LVL 

1 7D5 

9570 

003P 



AND 

$R 1 * sX•3P• 

MASK n 

1 7 D 7 

IDOF 




CMV 

$R 1,-15 


17Db 

0906 




BE 

>WAIIP 

B IP ALRtADY AT LVL' 15 

1 7 D 9 

M660 

1 7E0 



LAb 

$b2 * <WAI TP 


17Db 

AP 80 

230F 



STB 

$B2*<SA15P 


1 7 Db 

6E70 

800P 


LEVXI 

Lev 

sZ•8000•♦15 

SUSPEND TO LVL 15* BYPASS LVL 10 

17 DP 

0PE5 



* 

b 

>LEW5 

RE- INST ATE SA5P TO LEW5 

1 7 EO 

9P60 

OOOA 

X 

WAITF 

Hm* mm mm 

STb 

$B1»<ZH1SAZ+IU*$AF 

RESTORE IV 10 





* WAIT 

IS DONE, RbTURN TO PROGRAM 


1712 

DC80 

17E5 


WAI TD 

LDb 

$B5 * <WA1Tb5 

* 

17E4 

8365 




JMP 

$B5 

RETURN 


* 


17E5 0000 WAITb5 RESV $AP,0 

************************************************************************ 


o 




c 
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PE/NRZI MAo TAPt T&V (SAF) 
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Ub5c44 





/■a********************************************************************** 

005^45 





# 




005246 





* CONSTANTS* 

messages * tables* 

bUFFERS, E1C• 

0O5247 





* 




B OUbcnd 





****** ft******************************* ********************************** 

m -v- 005c49 





* CONSTANTS* 

buffers 


Oub^bu 





* 




CG5<:5 1 

17 Lb 

0000 



WbUF 

RLSV 

(2048+256) /2 *0 

STANDARD WRITu BUFFER 

U0b^5<; 

iCob 

0000 



kbUF 

RESV 

(2048+256)/2 *0 

STANDARD read buffer 

005^53 





* 




006<i54 

4b tb 

0000 



A6RN 

KeSv 

SAP *0 

ABORT ROUTINE POINTER 

005^55 

4 01 7 

0000 



AUFL 

RESv 

1*0 

=1 IF IN test au* mode a 

0054 56 

4 bob 

0000 



bdc 

ReSv 

1*0 

= BDC3 FOR bDCs FIRMWARE* -- FOR bUC2, 

005^57 

20E9 

0000 



BDCFLG 

RESv 

1 *0 

= 1 FOk B0C3 FIRMWARE* =0 FOR BDC2 FIRMWARE. 

OubLbo 

40 LM 

0000 



BITE 

RESv 

1*0 

DRIVE NUMBER 

005^59 

*0to 

0000 



CNT8 

RlSV 

1*0 

COUNT b SPACE OPS FOR TEST AU 

0U5c60 

40EL 

0001 



0C1 

DC 

1 


0Q5z61 

40ll) 

0002 



DC2 

DC 

2 


uub^ b4 

4btt 

100b 



DC4096 

DC 

4096 


OubL 63 

40LF 

0003 



0C3 

DC 

3 


005464 

40F 0 

0040 



OC32 

DC 

32 


005465 

4bF 1 

0008 



DC 8 

DC 

8 

BYTES X 4 FOR 4V$IA (4 bYTES) 

0b546b 

4 OF 4 

005C 



DCbS 

DC 

4 * Ob5C 1 

BACK-SLASH (NuLL CHARACTER) 

b 0 5 4 6 7 

4UF 3 

0000 



ULCN 

RESV 

1*0 

UP TO 8 DATA cRKS BEFORE RtIRY/ABORT 

00546b 

*QF 4 

0000 



DEFL 

RESV 

1*0 

DATA t_KR FLo, StT AFTER FkST ERR IN COMPARE 

0052 69 

4bF 5 

0000 



DRIVE 

ReSv 

1*0 

CuRktN1LY SELlCTED UNIT (FROM "DRIVEO" ETC.) 

0054 70 

40Fb 

0000 



DRIVED 

DC 

4 • 0000 * 


005471 

40F7 

0080 



DR1VE1 

DC 

Z'OUSO* 


0U5c 74 

4 OF d 

0100 



DKIVE4 

DC 

4*0100* 


0ubc73 

4bF9 

0180 



DRIVES 

DC 

4*0180* 


005474 

4 b F A 

0000 



DXDENS 

KESV 

4*0 

MASK* 1000 FOk PE, 0000 FOR NR4I 

0054 75 

40F L 

0000 



DXFN 

ReSv 

4*0 

HEX FILE NOMbLR FOR CURRENT DRIVE 

005476 

4 1 b4 

0000 



DXMD 

RESV 

4*0 

ASCII MODE (AuRw) FOR CURRENT DRIVE 

005*77 

410b 

0000 



DXPS 

RESV 

4*0 

DEC PaSS CUUNj FOR CURRENT DRIVE 

00547b 

410a 

0000 



DXPT 

RESV 

4*SAF *0 

NEXT TEST FOR CURRENT DRIVE 

005479 

4 1 OL 

0000 



DXRN 

KESV 

4*0 

HEX RECORD NO 1 - 1 BEK FOR CURRENT DRIVE 

005480 

4114 

0000 



EOT FLG 

KESV 

1*0 

= 1 IF to 1 DETtCTtD 

005481 

4113 

0000 



ERCT 

RESV 

1*0 

TOTAL tRRORS jINCE START OF MODE 

005484 

4 I 14 

00O0 



ERDRIV 

RESV 

1*0 

DRIVE NUMBER cOK "FNER h 

005483 

4115 

0000 



ERFILE 

RESV 

1*0 

FILE NUMBER FuR ”FnER m 

005484 

41 lb 

0064 



ERLNTH 

DC 

(8 + **$AF )* 10 

TOTAL LENGTH uF ERROR TABLE 

005485 

411/ 

0000 



ERREC 

RESV 

1*0 

RECuRb NUMBER FOR »' FNER ” 

00548b 

4118 

0000 



ERRFLG 

RESV 

1*0 

=1 AFTtk FIRSI REPORTED tRROR 

005487 

4119 

0000 



ERTb 

RESV 

(8+**$AF ) *10*0 

SAVE FIRST Tti* ERRORS For MODE "P" 

00548b 

4170 

4119 



ERTbPT 

DC 

<ER1 B 

RUNNING POINTER THROUGH tKTB 

005489 

2 1 71 

0000 



FAIL 

RESV 

1*0 

= 1 IF A ” PORT ” FAILED IN • ULT RUN * 

005490 

4 17F 

0000 



FILES 

RESV 

1*0 

FILES PER PASs* A q R W (0 = E-O-T) 

005491 

4 ibb 

0000 



FIRM 

RESV 

1*0 

FIRMWARE REV •— XX* 

005494 

4181 

0000 



FLAG 

RESV 

1*0 

GENERAL PURPOSE FLAG 

005493 

4184 

0000 



GGFLAG 

RESV 

1*0 

IF SET* BYPASu "START" 

005494 

4183 

0000 



i DEN 

KtSV 

1*0 

ID CODE 

005495 

4 184 

17E6 



JJPT 

DC 

< W B 0 F 

WRITE BUPFtk POINTER FOR DEBUG MODE 

00549o 

4185 

1066 



KKPT 

DC 

<RduF 

read bopFER pointer for debug Moot 

005497 

418b 

0000 



LAdELl 

RESV 

1*0 

MAJOR ERROR klPORTinG LAbEL 

006*96 

418 7 

0000 



LA6EL2 

KtSV 

2*0 

MINOR ERROR REPORTING LABEL 

005499 

4189 

048b 



LENGTH 

DC 

( *048+256 ) /2 

LLNGTH (WORDS) OF wRITt/READ BUFFERS 

m 00530u 

4 1 8A 

0000 



MXAD 

KtSV 

*AF ,0 

MAX AuDRtSS WriERt RAND bUF MAY START 

B 005301 

4180 

000b 



NT ST 

RESV 

SAF , 0 

NEXT TEbT AFT uR AN ABORT 

005304 

4 1 8L 

0000 



NULL 

RESV 

$AF * 0 


0O5303 

4 180 

OOOO 



OFSETR 

RESV 

1*0 

TURN-AROUND TcST, READ OFFSET 

005304 

4 1 8L 

0000 



OFSETW 

RESV 

1*0 

TURN-AKQUND TlST, write offset 

0O3303 

4 1 8 F 

0000 



PFLAG 

RESv 

1*0 

MODE P PRINT FLAG 

00530b 

4190 

OOFF 



PTRN 

KESV 

1 » X * F F • 

DATA PATIERN 

005307 

4191 

0000 



ULTFLG 

RESV 

1 *0 

=1 IF UL1 ALREADY RUN IN *GLTRUN» 

00b30o 

4194 

0000 



GLT I 

RESV 

1*0 

H uL t 1 M from scratchpad on right byte) 

005309 

4193 

0000 



R3H0LD 

RESv 

1*0 

SAVE INDEX R3 

005310 

2194 

0000 



RANADR 

RESV 

iAF *0 

LAST ADDRESS FROM GRNADK 

005311 

4195 

0000 



RANDOM 

RESV 

8,0 

8 RAND NMBkS FOR TEST AO 

00531 4 

419b 

0000 



RANGE 

Resv 

1*0 

RANGE KCVD bY "GETrnG"* ALSO IN T1-T7. 

005313 

419t 

0800 



RNG 

RESV 

1 * X * 800 ♦ 

NUMBER OF BYTlS* POSITIVE (DEFAULT = 4048) 

005314 

419F 

0000 



rngfeg 

RESV 

1*0 

=1 TO SuPPktSo unequal length checks 

005315 

4 1 AO 

003C 



kTCHZ 

DC 

60 

DEFAULT KTC FkEUUEnCY 

00531b 

4 1A1 

0000 



RTCN 

KtSV 

1*0 

UP TU 4 MORE KETRlES BEFORE ABORT 

005317 

4 1A4 

0000 



RTFL 

RESV 

1*0 

RETRY FLAG (= 1 WHEN DOING RETRY) 

00531b 

41A3 

0000 



RTRN 

RESV 

$AF * 0 

pointer to rliry Routine 

005319 

4 1 A4 

0000 



RTRY 

RESV 

$AF ,0 

RETRY LOCATION 

005340 

4 1 a5 

0000 



SAVE 1 

KE5V 

7 + 7 * 3> A F ,0 

CONTEXT SAVE mREA 

005341 

4163 

0000 



SLOB 

RlSV 

SAF * 0 

POINTlK 10 CUkRENT data buffer 

Oub 344 

4 lb4 

0000 



ST AT 1 

RESV 

1*0 

FIRST STATUS wORD 

005343 

* 1 b5 

0000 



STaT 2 

RESV 

1*0 

SECOND STATUS WORD 

005344 

4 1 bb 

0000 



SUPRES 

RESV 

1*0 

ERROR SUPPRESSION FLAG U= SUPPRESS REPORTS) 

005345 

41b/ 

0000 



TEMP 

KESV 

3,0 


005346 


4 167 



TEMPA 

EUU 

TEMP 

... 

005347 


4168 



TEMPb 

EUU 

TtMP+1 


005348 


21b9 



TEMPO 

too 

TtMP+2 


005329 

4 Ida 

0000 



TIMCNT 

RESV 

1*0 

COUNT MILLISECONDS FOR • T IMCHK * ROUTIixt 

00533b 

4 lbo 

4040 

4D2D 

2D4D 

VRbL 

TEXT 

1 -S3>* 

variable conversion buffer 


4 ibt 

4424 







005331 

4 1 bF 

3333 



X3333 

DC 

2 * 3333 • 


005334 

4100 

0000 



4VSTAT 

RESV 

1*0 

RETURNED STATUS FOR ZV$ ROUTINES 

005333 





***************************x******************************************** 

005334 





* messages 



005335 





* 




00533b 


41C1 



MSNAME 

EUU 

S 


005341 





41 

null 



005344 

4 1 Cl 

4054 

5553 

3320 


TEXT 

• MTuS3 REV G* 9- 

TK PE/NRZI MAG TAPc TESy, 29 JUNE 78$» 


2 1C4 

5245 

5620 

472C 







4039 

2054 

4620 







5045 

2F4E 

525 A 







4940 

4D41 

4720 







5441 

5045 

2054 







4553 

542 C 

2032 







3920 

4A5 5 

4E4 5 







4037 

3844 






005343 





42 

null 



005344 

4 1 Ob 

434F 

5059 

5249 

CPYRIT 

TEAT 

•COPYRIGHT 1976, 

77, 78 BY HQNEYWEcL INFORMATION SYSTEMS, 1NC.» 


4 1 l)E 

4748 

5420 

3139 







3 736 

4C40 

37 3 7 







4C20 

3738 

4042 





% 


5940 

484F 

4E4 5 







5957 

454C 

4C20 







494E 

464F 

5440 







4154 

494 F 

4E20 







TITLE MTUS3* * 

REV O' 

NINE TRACK 

PE/NR2I MAC TARE T6V ( 5AF) 

PAGE. 60 




5359 

5354 

4540 








532C 

2049 

4E43 








2E00 








005345 

2 IF A 

ODOA 



M5HEAD 

DC 

X’OdOA* 

CR/LF 


00334b 

2 iFb 

4552 

3220 

4C41 


TEXT 

• ERR EAbEL LOC 

UNIT FILE REC BUF STATI STAT2 * 

f 7’ 


LIFE 

4245 

4C20 

2020 








4C4F 

4320 

2020 








2055 

4E49 

5420 








4649 

4C45 

2020 








5245 

4320 

2020 








4255 

4620 

2020 








5334 

4154 

3120 








3354 

4154 

3220 






003347 

2 2 16 

000 A 

2424 



DC 

2 • 000A2424 * 

CR/LFSS 


00534b 





*- - - 





0U3349 

221b 

2041 

424F 

5254 

MSABRT 

TEXT 

• AbORTS* 




2*i Id 

2400 








003350 

4*ilc 

2020 

4259 

5445 

MSbYTE 

TEXT 

1 dYIE $* 




2 2 1T 

2020 

2400 





. — 


005351 

2221 

4346 

4 14L 

4E45 

MSCHAN 

TEXT 

•CHANNELS' 




*i*:24 

4C24 








005^5L 

2223 

4452 

4956 

4520 

M5DENS 

TEXT 

•DRIVE »Q" IS - 

-$» 



222b 

2230 

2220 

4953 








2020 

2D2D 

2020 








2020 

2D2D 

2400 






003353 

2231 

4F4b 

4620 

4C49 

HSDOWN 

TEXT 

•OFF LINE* 




2234 

4 E45 








003354 

*i*.33 

2045 

2D4F 

2054 

MSEOT 

TEXT 

• t-O-TS* 




223b 

2400 








005353 

22 3 V 

2043 

5252 

2833 

MSERR 

TEXT 

» EKR(S) $• 




2230 

2920 

2020 

2400 






00535b 

22 3F 

204b 

4556 

2046 

MSFlLfc 

TEXT 

• HtX FILE(S)...$• 




2242 

494C 

4526 

5329 








2E2E 

2E24 







00535/ 

2247 

4244 

4320 

2046 

MSFI KM 

TEXT 

•BDC- FIRMWARE REVS 




2 *.4A 

4952 

4057 

4152 








4520 

5245 

3624 






00535b 

2230 

494E 

3641 

4C49 

MSJNVE 

TEXT 

• INVALID MODES* 




22 5 3 

4420 

4D4F 

4445 








2400 








00335V 

223 / 

2C20 

2049 

5320 

Mb 1 5 

TlXT 

• » IS $• 




22 5 a 

2024 








005360 

225b 

2020 

4C49 

4E4b 

MSLINK 

TtXT 

* LiNKSS* 




225L 

5324 








005361 

2<d3F 

4D4F 

4445 

2024 

MbMOOE 

TEXT 

•MODE $• 



005 36*. 

2262 

2020 

4E43 

5854 

MSNEXT 

TEXT 

• nEXTS* 




2 2 6 3 

2400 








005363 

2266 

4L52 

5A49 

2020 

MSNR 4 I 

text 

• NR*. I » 




2269 

2020 








005364 

2 2 6 A 

*1020 

3241 

4E4 7 

MbPARA 

TEXT 

* RANGE* DATAS* 




2 260 

452C 

2044 

4154 








4124 








005363 

22 71 

2020 

3041 

3240 

MSPARM 

TEXT 

• pAKMS; S* 




22 74 

533A 

2020 

2400 






00536b 

22 7 7 

2020 

5041 

5353 

MbPASb 

TEXT 

• PASSs* 




22 7 A 

2400 








005367 

227b 

5043 

2020 

2020 

MbpE 

TtXT 

»PE » 


/ 


2 2 7t 

2020 








00336b 

2 2 7 T 

514C 

5420 

5041 

MSULPS 

TEXT 

•QLl PASSSS* 


\ .rj 


2282 

5353 

2424 







00336V 

22b4 

504F 

5743 

5220 

MSRTC 

TEXT 

♦POwEK FRtO* H2$* 




228 ( 

4652 

*+551 

2C20 








485A 

2400 







0 u 3 3 7 0 

2280 

2052 

4554 

5239 

MSRTRY 

TEXT 

* RlIKYS* 




2281 

2400 








0O3371 

2290 

2020 

5342 

20*10 

MbbB 

TEXT 

* 3b s * 




2293 

2400 








00537*. 

2 2 94 

2020 

3354 

4154 

MSSTAT 

TEXT 

• dT AT; S* 




229 7 

3 A20 

2024 







005373 





** *********************************************** *********************** 


003374 





* LIST 

OF T AoK WORDS (10 <REWINO,<OTTASk) 


005375 





* 





005376 

22 99 

8000 



RtwIND 

DC 

2 * 8uOO • 

REWIND 


005377 

2 2 9 A 

COOO 



UNLOAD 

DC 

L *cooo* 

UNLOAD 


00537b 

229b 

0800 



FWOREC 

DC 

2*0800* 

FORWARD SPACE A RECORD (BLOCK) 


00337V 

22 VC 

0400 



KLVREC 

DC 

2*0400* 

BACKSPACE A RECORD (BLOCK) 


005 bBo 

2290 

1800 



FWOF1L 

DC 

2*1600* 

FORWARD SPACt A FILE (TaPE MARK) 


0053B 1 

2*l9L 

1400 



REvFIL 

DC 

2*1400* 

BACKSPACE A FlLt (TAPE HARK) 


00538*. 

22 9 F 

0900 



REAOFD 

DC 

l»0900* 

REAP FORWARD 


005383 

22 AO 

2600 



ERASE 

DC 

2 * 2oOU* 

ERASE 


003364 

22 Ai 

3 AOO 



WRITFM 

DC 

2 * 3AOO * 

WRITE FILE (TmPE) MARK 


005385 

22A2 

2bOO 



WRITE 

DC 

2 * 2dOG « 

WRITE 


00338b 

22 A3 

0500 



REAORV 

DC 

2*0300* 

READ RtVtKSE (NOT IMPLEMtNTtD) 


005387 

22 A4 

2300 



WRNOGO 

DC 

*.*2400* 

WRITE W1IH NO TAPE MOTlUN 


00338b 

22 A 3 

0000 



NOPER 

Ot 

t’OuOO* 

NU OPERATION 


00338V 





************************************** ******** ************************** 


003390 





* LIST 

OF COnFIGUkATION WORDS (10 

<NORMAL * <UTcON|- ) 


005bV 1 





* 





00539L 

22 A 6 

0800 



ANSINH 

DC 

2 * ObUO • 

INHIUM ANSI isODE 


005393 

2 2 A 7 

OAOO 



01 AON 

DC 

2 * 0AOO * 

INHIBU ANSI* DIAGNOSTIC MODt 


003394 

22 Ab 

1 AOO 



EVNPAK 

DC 

2 * 1AOO • 

EVEN PARITY* mNSI INH* D1 AG MODE 


003393 

22AV 

0000 



NORMAL 

DC 

2 * OuOO * 

NORMAL mude 


00539b 





************************************************************************ 


00339 7 





* LIST 

OF CONTROL WORDS (10 <ST0P 1 0 * <0I CONI ) 


00539b 





* 





00539V 

22 AA 

AOCO 



INDEX 

DC 

2 * AuCO * 

SET INDEX MODt 


U05*+0U 

22 Ad 

6000 



IN/BDC 

DC 

2 * 6000 • 

INITIALIZE bDt* DO qLT uN 4 PORTS OF bDC 


005401 

22 AC 

AO 30 



LCHNO 

DC 

4. • Au30 * 

LOGICAL CHANNlL NMbR , PuKT 0 


00540*1 

2 2 AO 

A034 



LCHN 1 

DC 

2 * A034 * 

PORT 1 


00 340 3 

22 Al 

A038 



LCHN2 

DC 

2*A036* 

PORT 2 


00540*+ 

2 2 AF 

A03C 



LCF1N3 

DC 

4 * Ab3C * 

PORT 3 


005403 

22 bo 

0500 



NOTLST 

DC 

2*0300* 

RESET TEST MGdE 


005406 

22 bl 

4016 



SCROY 

DC 

2 * 4u 1 fa * 

set Channel k»Y 


005407 

2202 

4000 



STOPIO 

DC 

E * 4o00 • 

RST BSY, RPT iF ENb, HLT DMA (AFFECTS 1 POT 


00 5s Ob 

2203 

2000 



TESTMD 

DC 

2 * 2000 * 

SET TEST MODt 


005409 

2204 

0000 



WAiTLP 

RES V 

1 *0 

BRANCH TO WA1 1 LOOp INSTRUCTION 


0034 10 

2 2 03 

9863 



WRtNB 

DC 

2*9683* 

SET WRITE ENAuLt* ETC 


005411 

22 bb 

6863 



XFtRi 

DC 

E * 8b63 * 

SET SCRATCH PhD Mem ADR I0 STAT2 


00541L 

2 20 7 

bEOo 



XFEK2 

DC 

E * BEOO• 

XFER STATUS Tu SCRATCH PAD 

f 1 

003413 

2 2 bo 

784E 



wRINH 

DC 

E»7b4E* 

RESET WRITE OrsDtR 

1 ■ 

0034 1*+ 

2209 

0008 



CLAOAP 

DC 

E * 0u08 * 

ADAPTER HARD tLEAR 

v y 

005413 





************************************************************************ 


0054lo 





* CHANNEL CONST AN IS 
























title mtus3,« 

REV G* 

NINE TRACK PE/NRZI MAO TAPE T6V (SAF) 

PAGE 61 

005417 



* 



00541b 

22dA 

1400 

CHAN LC 

Z*1400* 

DEFAOU CHAN mDDREsS 

005419 



* 



M 005420 

22db 

1409 

I OREAD DC 

Z*1409* 

IOLD RtAD 

1 005*21 

22bC 

14*9 

10WRIT DC 

Z» 1449* 

1 OLD wRI IE 

0 0 5 4 2 2 



* 



005423 

2 2BD 

1411 

OTCONF DC 

Z * 1 4 1 1 • 

OUTPUT CONFIGURATION WORD 

005*24 

22Dt 

1401 

GTCONT DC 

Z’1401» 

OUTPUT CUNTROu *ORo 

005425 

22dF 

1403 

OTROPT DC 

Z* 1403* 

OUTPUT INTERRUPT CONTROL 

003426 

22C0 

1419 

OTSTWl DC 

Z*1419* 

OUTPUT SI AT US WORD 1 

003427 

2 2 L1 

141b 

0TSTW2 DC 

z*i4ib* 

OUTPUT SIATUS WORD 2 

00342b 

2 2 L2 

1407 

OTTASK DC 

Z * 1407 * 

OUTPUT TASK WORD 

003429 



* 



003430 

22C3 

1400' 

NbDC DC 

2*1400* 

INPUT BDC FIRMWARE LOAD TYPE 

003*31 

2cC* 

1410 

NCONF DC 

Z»I*10* 

INPUT CONFIGURATION WORD 

005432 

22C3 

1404 

NF1RM DC 

4*1404* 

INPUT PIKMwAkt REV 

005*33 

2206 

1426 

N1 DEN Dl 

Z* 1426* 

INPUT ID CODE 

005*3* 

2207 

140 A 

N0LT2 DC 

Z *140A * 

INPUT BDC2 oL11 TO LEFT BYTE 

003*35 

220b 

1404 

NOLI3 DC 

Z * 1404 * 

INPUT B0C3 QLII TO RIGHT BY It 

005*3o 

2209 

1406 

.NuLTu DC 

Z * I40t • 

INPUT BDC3 ULIJ TO LEFT bYTt 

005*37 

2 2 0 A 

1400 

INkANG DC 

Z*140C* 

INPUT RANGE 

005*3b 

2200 

1402 

INRUPT DC 

4 * 1402 * 

Input inierrupt control 

005*39 

2200 

1416 

1NSTW1 DC 

Z* lHlb* 

INPUT STATUS aORD 1 

005*40 

2200 

14 1 A 

INSTW2 DC 

2 * 14 1 A * 

INPUT STATUS wORD 2 

005441 

220L 

1406 

INTASK DC 

2*1406* 

INPUT 1 ASK WORD 

005442 

22CF 

1436 

1NWAIT DC 

Z*143E* 

INPUT WAIT EOuP LOCATION 

005443 



* 



00344* 


2200 

CHAN2 Euu 

* 

END OF CHANNEu WORDS 

003443 



******* ****************************************** ************************ 

005446 



* TABLE OF 1 

DtbUG MODE LINKS 


005447 



* 



00544b 

2200 

0C3C 

LINKS DC 

<MOotD 

FIRST TIME* S1 ART OVER AGAIN 

005449 

2201 

0000 

RtSv 

20*SAF *0 


005*50 






005*51 

2263 

0000 

LNKTAB DC 

<AAa 


003*32 

2266 

004A 

DC 



005*53 

2267 

0D4F 

DC 

<CC 


005454 

226b 

0059 

DC 

<DD 


005453 

2269 

0072 

DC 

<EE 


005*56 

22LA 

0070 

DC 

<FFF 


005*57 

22tb 

0D66 

DC 

<GG 


005456 

2260 

0096 

DC 

<MOdEDJ 


005*59 

2 260 

0096 

DC 

<11 


003*60 

22E6 

00A6 

DC 

<JJ 


005461 

226f- 

ODbO 

DC 

<KK 


005462 

22F0 

0004 

DC 

<LL 


005*63 

2 2 F 1 

0602 

DC 

<MM 


005*64 

22F2 

060 F 

DC 

<NN 


005465 

22F3 

0E2b 

DC 

<00 


005466 

22 F 4 

0E34 

DC 

<PP 


003*67 

22F 3 

0t60 

DC 

<0Q 


005466 

22Fb 

0691 

DC 

<RR 


005*69 

2cF 7 

OEC* 

DC 

<SS 


005*70 

22F 6 

OECA 

DC 

<TT 


m-..:. 005*71 

22F9 

0ED9 

DC 

<uu 


£ 003*72 

2 2 K A 

06F7 

DC 

<vv 


| 003473 

2 2 Kb 

0F02 

DC 

<ww 


m 005474 

2cF0 

OF 2b 

DC 

<xx 


^ 0 u 3 4 7 3 

22FO 

OF 20 

DC 

<YY 


0054 7o 

2 c Ft 

OF 36 

DC 

<ZZ 


0034 71 



************************************************************************ 

00547b 



* LEVEL 5 INTERRUPT SAVE AREA (RTC 

LEVEL) 

005479 



* 



005460 

22F K 

0000 

SA5TL RESV 

SAF *0 

TSA LINK 

005*61 

2300 

0000 

5A5DV R6SV 

1*0 

DEVICE 

0u3*62 

2301 

0000 

SA5M1 DC 

0 

MASK 1 

005463 

2302 

0000 

SA5M2 DC 

0 

MASK 2 

00546* 

c 303 

0000 

SA5P R6SV 

SAF ,0 

P REG 

005463 

2304 

4000 

SA55 DC 

2*4000* 

PRIV BIT 

005486 



* 



005467 



* LEVEL 10 

INTERRUPT SAVE AREA (DEVICE INIEKRUPT LvL * wHtN ENABLED) 

005468 



* 



003*69 

2303 

0000 

SA10TL RtSv 

SAF »0 

TSA LINK 

003490 

2306 

0000 

SAIODV RESV 

1*0 

DEVICE 

003491 

230 7 

0000 

SA10MI DC 

0 

MASK 1 

005492 

c 30b 

0000 

SA10M2 DC 

0 

MASK 2 

005*93 

2309 

0000 

SA10P RESV 

SAF ,0 

P REG 

003494 

230A 

4000 

SA10S DC 

2*4000* 

PR IV BIT 

005493 



* 



005496 



* LEVEL 15 

interrupt save area (normal running LtVEL) 

005497 



* 



00549b 

23Ud 

0000 

SA15TL RESV 

SAF * 0 

TSA LINK 

005499 

2300 

0000 

SA15DV RESV' 

1,0 

DEVICE 

OO530O 

2 300 

0000 

SA15M1 DC 

0 

MASK 1 

005501 

230t 

GOOD 

SA15M2 DC 

0 

MASK 2 

003302 

2 30 K 

0000 

SA15P RtSV 

SAFNO 

P REG 

003303 

2310 

4000 

SA15S DC 

2 * 4oOO * 

PRIV biT 

005304 



************************************************************************ 

003305 



* TRAP SAVE 

AREA 1 


00330c 



* 



003307 

2311 

0000 

TSAI R6SV 

SAF *0 

TSA LINK 

00350b 

c 3 12 

0000 

TSA1I RESV 

1*0 

I REGISTER 

005509 

2313 

0000 

TSA1R3 RESV 

1*0 

R3 

005310 

2314 

GOOD 

TSA1F RtSv 

1*0 

F 

0053 1 i 

c 3 1 d 

0000 

TSA1Z KtSV 

1*0 

Z 

003512 

2316 

0000 

TSAltA KtSV 

SAF *0 

LA 

003313 

2317 

0000 

TSA1P KtSV 

SAF ,0 

P 

00551* 

23 ib 

0000 

TSA1B3 RESV 

SAF,0 

B3 

005315 



* 



005316 



* TRAP SAVE 

AktA 2 


003317 



* 



00531b 

2319 

0000 

TSA2 KtSV 

SAF * 0 

TSA LINK 

003319 

2 3 1A 

0000 

TSA2I RtSv 

1*0 

I REGISTtR 

005320 

2 3 1 u 

0000 

TSA2R3 RtSv 

1*0 

R3 

003321 

2310 

0000 

7SA2F RESV 

1*0 

F 

00332c 

2310 

0000 

TSA2Z RtSV 

1*0 

Z 

005323 

2316 

0000 

TSA2tA RESV 

$AF,0 

EA 

f 00532* 

c 3 1F 

0000 

TSA2P RESV 

SAF * 0 

P 

I 003323 

c 320 

OGUO 

TSA2B3 RESV 

SAF*0 

B3 

L 003526 



************************************************************************ 

^ 003327 



* TABLE OF 1 

NOMINAL TIMES FOk CHECKING TIMED OPERATIONS- VALUES 

00332b 



* IN MILLISECONDS ARE FOR A 45 IPS 

MACHINt. SObkuUT INK itIMCHK* 

003329 



* WILL FORM 

UIMi To AT */-35*> OF THIS VALUE AND W*EL TAKE 60% OF 



TITlE MTU33,»REV (a* 


NINE TRACK PE/NRZI HAG TAPE T&V (SAF) 
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005530 

005531 

00553<i 

003333 


003334 

c32 1 

OOBb 

TIMER 

DC 

187 

003333 

2322 

0032 

TIMFM 

PC 

50 

U0333o 



******************* 

003337 



* SEQUENCE 

OF TEST 1 

00333b 



* 



003339 

2323 

10CI 

SEQN 

PC 

<RT2 

U0334U 

2324 

0400 


PC 

<T 1 

003341 

2323 

04E9 


PC 

<RW 

003342 

232b 

0552 


PC 

<ER 

003343 

2 32 7 

057F 


PC 

<PM 

003344 

232b 

05 AC 


PC 

<BR 

0U3343 

2329 

05C5 


PC 

<PR 

003346 

232A 

050E 


PC 

<BP 

003347 

232d 

05 F 7 


PC 

<FF 

00334b 

232C 

0610 


PC 

<EF 

003349 

23 20 

0687 


PC 

<RP 

003350 

2 32c. 

0 74A 


PC 

<5A 

005551 

232F 

10CI 

SEQ1 

PC 

< R T 2 

0U555E 

2330 

0A1 3 


PC 

< P ILE 

005353 

2331 

0A37 


PC 

<AAST 

005354 

2332 

216C 


PC 

<NUeL 


* THESE NUMBERS TO GET THE NOMINAL VALUE FOK A 73 IPS MACHINE. 

* IT WILL THEN FOKM LIMITS AT +/-33% OP [HIS NUMqER AND 

* CHECK THE MEASUklD VALUE AGAINST THE LIMITS. 

* 

TJME TO ERASE FROM BOT 
"" ' Tt A r “ 


TIME TO WRIT 


FM FOLLOWING AN ERASE OP 


NOP SO MARW UuESN'T BU^P DXPT TOO FAR 


UG3353 

00333b 

003357 


END UP SEQUENCE 

************************************************************************ 

* LIST OF TEST LOCATIONS FOR TEST "AU M 

* 


00555b 

2333 

0 A7 2 

LIST Pc 

< ABu 

005559 

2334 

0A79 

PC 

< ACu 

005560 

2333 

0A80 

PC 

<ADu 

003361 

233b 

0A87 

PC 

< AEu 

003562 

233 7 

0A8E 

PC 

<AFU 

003363 

233b 

0A95 

PC 

<AGU 

005564 

2339 

0A9C 

PC 

< AHu 

003565 

2 3 3 A 

0AA3 

PC 

< AIU 

005566 

233b 

OAAA 

PC 

< A Ju 

0 Q 5 5 6 7 

233C 

DAB 1 

DC 

< AKc 

00336b 

233U 

0AB8 

PC 

<ALu 

005569 

233L 

OABP 

PC 

<AMU 

005570 

233P 

0AC6 

PC 

<ANu 

0U557i 

2 340 

OAPi 

PC 

< AOu 

00557c 

2341 

0AF8 

PC 

< APU 

005373 

2342 

0B2A 

PC 

<ARu 


00337c 
003373 2343 0100 

0000 ERR COUNT 
Tl TLt. MTUS3 » * 

SAP 


Sb 1 


4>B2 

$B3 
SB4 
SB 3 


************************************************************************ 

EnD MTU33 *START 


I005C 

1014C 

1369 

1386 

1387 

1392 

1397C 

140bC 

1409C 

1432C 

1436 

1511 

2015C 

2094C 

2102 

2599C 

* 8 1 9 

2842 

2943 

29 73 

3136 

3137 

3h64 

3467 

3*72 

34 75 

3495C 

3660C 

3719 

3772 

3798 

3805 

3d64 

3670 

3b 7 3 

3881 

3916 

392 7 

4014 

40 6 7 

4122 

4170 

4223 

4310 

4311 

4312 

4313 

43 5 7 

4383 

4414 

4448 

4464 

4475 

4500 

4510 

4531 

4547 

4572 

4562 

4592 

4608 

4664 

4o74 

4676 

4ob2 

4684 

*687 

4691 

4693 

46 9 6C 

4697C 

4780 

4839 

4656 

*b 88 

5032 

5056 

5108 

5126 

5135 

3148 

5170C 

5224 

5225C 

5235C 

5242 

5254 

5278 

5284 

52^7 

3300 

5301 

3302 

5310 

531b 

5319 

5320 

5321 

5337 

5339 

3449 

5514 

5480 

5518 

5484 

5523 

5469 

3524 

5*93 

5523 

3498 

5502 

5507 

5512 

5513 

1002 

1003C 

1004 

1003C 

1011 

1012C 

1013 

1014C 

1043 

1045 

1046 

1053 

1U54C 

1055C 

1133 

1134C 

1141 

1142C 

117* 

1175C 
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2972 

2974C 

2999 

3005 

3017 




3033C 

3034C 

3035C 

3043 

3U44C 

3058 

3060 

3061C 

3107 

3504C 




3548C 

3 5 4 9 C 

3 5 7 4 C 

3605C 

3610 

3611 

3729 

3777C 

3808C 

3809 




3611 

3629C 

3831 

3634 

3646 

3972 

3974 

3987C 

4004 

4047 




4048 

4 101C 

4175 

4176 

4365 

43/4C 

4375C 

4406 

4434 

4435 




4466 

4 A 6 9 C 

4 4 7 0 C 

4488 

4 a95C 

4496C 

4505C 

4523 

4536C 

4537C 




4636 

4560 

4567C 

4568C 

4577C 

4635 

4706 

4714 

4726 

4734 




4760 

6200 

4815 

4 9 0 6 C 

4936B 

5004C 

5005 

5008 

5118C 

5119C 

5190 



:t>R4 

1648 

1549C 

1555 

1556C 

1562 

1563C 

1569 

1570C 

1598 

1599C 




1605 

1606C 

1610 

1611C 

1622 

1623C 

1629 

1630C 

1633 

I 634 C 




1646 

1649C 

1o56 

1 6 5 7 C 

1660 

16610 

1675 

1676C 

2077 

2078 




2079 

3216 

321 7C 

3225 

3226C 

3228 

3229C 

3674 

3675C 

3684C 




3692b 

3696 

3706 

4740 

4741 

4744 

4797 

4806 

4809 

4865 




4866 

487 7b 











*R6 

1067C 

1068 

10 7 0 C 

1071 

1072 

2021 

2026b 

202 7 

2026 

2030 




2031C 

2038 

2039 

2053b 

2054 

2066 

2070 

2075 

2086b 

2905 




2906 

2 9 0 7 C 

2906 

2909B 

2914B 

2919C 

2920b 

2922b 

3667 

3668C 




4699 

4701 

4 704 

4709 

4710 

4712 

4717 

4720 

4742 

4809 




4829 

463 1C 











&R6 

1577 

1579 

156 1C 

1606 

1609C 

1997 

2006 

2011 

2017 

2032C 




2033C 

2041 

2056C 

2082 

2083 

2067b 

3117 

3122B 

3123 

3125b 




3126 

3128C 

3810 

4251 

4253 

4700 

4722 

4730 

4763C 

4773 




4 7 6 6 C 

480 7 

4814 










S>R7 

1600 

1624 

1635 

1650 

1662 

1664 

1665C 

2034 

2036b 

2064 




20656 

3118 

3 i 29C 

3220C 

3a23 

3611 

4252 

4253 

4808 

4814 




4867C 

4868 

48 70 

4672 

46 7 a 

4876 

5076 

5077 

5078 

5079 




6061 

5062 

5083 

5091 

5092 

5093 

5094 

5096 

5097 

5098 


2b9B 

aA 












<■607 

AA1 

2608B 











2611 

AA2 

2605b 

2612b 










2614 

mA3 

2609B 

2619 










2633 

AA4 

2626b 

2630b 










2636 

AA6 

2639 











3216 

AAA 

32356 

3248b 










3226 

AAB 

3233B 











3236 

AAC 

32326 











3240 

aAD 

3229C 

3230 










2696 

AAST 

6553 











3213 

aAx 

5461 











2646 

AB 

2621 

262 7b 

2641 








,'rft '% 

3931 

ABR3 

2243 

2254 

2620 

2640 

2 79 7 

2822 

2845 

2868 

4139 

4160 




4196 

4217 









V* 

62 64 

A B K N 

3 5 7 1C 

3947C 

408 1 C 

4306b 








264 7 

ABU 

5568 











2663 

AC 












2b 6 6 

ACU 

6559 











260 1 

AD 












2663 

ADu 

5560 











2669 

AE 












2671 

AEu 

5561 











267 7 

AF 












26 79 

AFU 

5562 











2656 

AG 












<16 6 7 

AGU 

5563 











2693 

aH 












2696 

AHU 

5564 











2701 

Al 












2703 

A I U 

5565 











2709 

A J 












2711 

AJU 

6566 











271 7 

AK 












2719 

aKu 

5567 











2726 

AL 












2727 

ALU 

5566 











2733 

AM 












2736 

AMU 

5569 











2741 

AN 












4696 

ANU 

3573b 











4601 

ANbA 

4596b 











46 U 6 

ANbb 

4602B 











4606 

ANbb6 

4596C 

4605 










6392 

ANS1hH 

2376 

2419 










2 7 4 3 

ANU 

5570 











2760 

AO 

27456 











2762 

AOU 

5571 











2763 

AP 

2770b 











2791 

aPA 

2 786b 

2 796 










2 769 

A PUR 6 

2754B 











2774 

APukbA 

2762b 











2766 

aPU 

5572 











2813 

AQ 

2603b 











2816 

AQA 

2807b 











2617 

AQb 

c62 1 











2819 

AQC 

2 7 6 7 C 

2 777C 

2 769C 









2826 

aqd 

2623 











2832 

AR 

2796 

2804b 

2826b 









2639 

ARA 

4835b 

2844 










2642 

ARC 

2769C 

2 7 79C 

2637C 









2834 

ARU 

55 7 3 











2860 

AS 

285 IB 











2662 

aSa 

2655b 











2663 

ASb 

266 7 











28 71 

ASC 

2 8 Ao 

2852b 

2869 








I 

2 8 7 7 

aT 

2872B 










% jF 

2 6o6 

ATA 

2860b 

2881b 










2891 

AU 

2684b 
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2903 

AU1 

2947b 




2913 

AU* 

2914b 




2919 

AU3 

2909b 




2921 

AU4 

2922b 




2926 

aU5 

2915b 

2920b 



2934 

aU6 

2746b 

2 7 55b 

2 d 2 7 b 

2873b 

2941 

AU6A 

2937b 




2943 

MU6b3 

2 9 34C 

2941 



2943 

*U6C 

2939b 




2933 

AU7 

2 6 b 76 




2963 

AUb 

2956b 




2972 

mU9 

2963b 

2966b 



3253 

aUFE 

1179C 

2629 

2 744 

2753 



2897 

2948C 

3961 

414b 

3246 

Bb 

5452 




3236 

bDC 

1076 

1147 



1160 

BDC3 

1 149b 




3257 

bDCF Lb 

1153C 

1162 

1337 

2167 

1076 

dDCIU 

1077b 




1665 

bF 

354b 




16 76 

bFA 

1671b 




16 79 

bFb 

1675b 




3256 

blit 

I215C 

1260 

1263 

1270 

4392 

bLAMb5 

4566C 

4589 



4566 

BLANKS 

3011b 

3869b 

3451b 

3437b 

3463b 

5126 

bOT b3 

3117C 

5123 



1627 

bR 

5544 




1636 

dRA 

1833b 




1641 

bRb 

1637b 




4535 

bSF 

1667b 

4315b 



4541 

bSF A 

4542b 




4 543 

bSF b 

4540b 




454 7 

bSFb5 

4535C 

4544 



4514 

bSF Vv 

2693b 

2894b 

3433b 


4326 

bSF W A 

4521b 




4531 

bSF Wb5 

4 5 14 C 

4526 



4526 

bSF^C 

4525b 




457 6 

bSR 

1829b 

4352b 



4562 

bSKB5 

4376C 

4579 



4551 

bSRVv 

1911b 

192 lb 

2631b 

2608 b 



3922b 

4150b 

420 7b 


4563 

bSktfcA 

4558b 




43 72 

p5KWb5 

4 5 3 1C 

4569 



45o3 

bSR aL 

4562b 




4366 

bSkhb 





4569 

bSKiht 

4566b 




3232 

cc 

5453 




5416 

CHAM 

1039 

1042 

436 7 

4701 

5 44h 

LHAIN2 

1044 

4368 


54 14 

CLaUAP 

2525 




4694 

CLRMA 

4696b 




4692 

CLkMuD 

1172b 

1466b 



4672 

CL'vL 

2033C 

2056C 

2075 

2078 

1263 

lMNA 

1255b 

1258b 



1292 

CMMb 

1262b 




12 76 

CMMC 

1273b 




12 79 

CMNE 

1283b 




4650 

CMPRA 

4627b 




4636 

CMPkb5 

4643C 

4853 



5239 

CMIb 

2903C 

2945C 

2946 


4643 

COMPAR 

1591B 

1615b 

1642b 

1669b 

1379 

COMX 

1334b 

1342b 

1350B 

1358b 

1366 

COMXa 

1383b 




1432 

COMXb 

1419b 




1436 

COMXb5 

1379C 

14 3 2 C 

1433 


1406 

COMXC 

1366 

1402b 



1433 

COMXP 

1417b 

142 lb 

1430B 


1393 

COMXF 

CPCHAM 

1395b 




4670 

1989 

*027 



5 344 

CPYkiT 





4663 

CREF 

1186 b 

3023b 

3236b 

3642b 

4 66b 

CRLF d5 

4863C 

4o 8 3 



3056 

bl 





4255 

PAT AING 

4291 




5260 

PCI 

3296 

4051 



5261 

pC2 

2380 

3120 



3263 

PC3 

3136 




3264 

PC32 

1905 

2 34 5 

4176 


5262 

PC4096 

2456 

2460 



5263 

PCb 

1196 

1677 

2d98 


5266 

pCbb 

3465 

346 7 

3473 

3473 

3259 

UO 

3454 




3270 

PDA 

3261 




32 76 

pE 





5267 

PECM 

3668C 

3d95C 

4322C 

4323 

5266 

pEFL 

3665C 

3698C 

4269 

4317 

4317 

pERA 

4296b 

4299b 



4322 

pEkb 

43 1 ob 




4326 

DERC 

4320b 




4696 

PtV I H 

1995 

2060 

4745B 


4709 

pEVI hl 

4705b 




4717 

PtVIh2 

4713b 




4 719 

pEV I Fi3 

4739b 




4 72 6 

PEVlh4 

4724b 




4 72 9 

PEV1H5 

4721b 

4723b 



4734 

PEVIH6 

4729b 




4737 

pEV1m7 

4725b 

4 731b 

4 733b 


4 74 0 

PEV1H8 

4736b 




4669 

pevsem 

2023C 

2043 

2046 

4698C 

5393 

PIACM 

4799 




4671 

uLVL 

203 1C 

2066 

4699 

4709 

3399 

PM 





3432 

PO 





349* 

PR 





5269 

PRIVt 

1272 

14 1 1 C 

3068 

3106C 

52 70 

UR1VLO 

1061 

1410 

3107 

5005 


3271 pRIVtl 

3272 PRiV L2 
32/3 PR IVl 3 
3323 PT 
3336 pU 
3336 pV 


4163B 


27o5 

4163 

2806 

4205 

2625 

2834 

2854 

*871 

23 70 

2505 

3079 

4931 

4965 


1*92 

3058 





3471b 

3613b 

3618b 

3623B 

3626B 

3633B 


2636b 2913b 3329b 39llb 3912b 3921b 


2062 4741 4742 


166 4b 4766b 4 7 7 6 B 


3b71 36/3 


3443 4369 4912C 3006C 
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3274 

bXBtNS 

illiC 

11250 

1 715 

1732 



1892 

19*7 

1970 

2125 



2310 

2336 

2339 

2372 



400* 

**06 

4*34 

4466 

3273 

uXFN 

1295C 

22340 

2o03 

2960 



3631 

3972 

4047 

4175 



*336 

43670 

51180 

5190 

327b 

BXMb 

1166 

12680 

1279 

12940 



306 1C 

3729 

4*33 

4635 

327 7 

bXPS 

12980 

14500 

1*520 

14550 

3 2 78 

b X P 7 

1261 

12640 

1337 

1345 

32 79 

t>XKN 

1296C 

22350 

2908 

2527 



363* 

3974 

39870 

4048 



4 33 70 

45660 

43 770 

51190 

339 * 

OY 





32 7 3 

uE 

3433 




1903 

lF 

3546 




1920 

EF A 

1913b 




1907 

c.Fu 

1906b 




1931 

EFC 

1925b 

1933b 



1942 

cFD 

1937b 




1930 

EF t 

1943b 




1933 

i_F F 

1940b 

1949b 

1936b 


1 9b 3 

EF g 

1960b 




19 73 

EFH 

1966b 




1976 

lFI 

1916b 

1963b 

1972b 


1903 

eF J 

1 90bb 




5148 

E0Ib3 

31390 

3145 



3139 

tOICHK 

3279b 

3403b 

3313b 

3559b 

32bO 

lot Flo 

11760 

2953 

30240 

3164 

31*3 

tO7 kET 

5 i* lb 



2962 

tp 




2996 

EP1 

2966b 




3033 

EP2 

3029b 




3042 

EP3 

3036b 




^9o4 

tP* 

2963 b 




1762 

eR 

1763b 

3542 



1766 

ERA 

1772b 




3363 

ERASE 

1344 

1 764 

4396 


4 39 7 

ERAw 

1920b 

2110 b 

2190b 

3277b 

4409 

ERAwb 

4404b 


4414 

tkAVvbb 

43970 

4411 



*41 1 

t-RAtoC 

4*C6b 




1762 

ERb 

1777b 




1 7b 7 

erc 

1761b 




*612 

erck 

3311b 

35bOb 

4110b 


4620 

lRCKm 

*6 1 3b 

4617b 



*621 

LkOKb 

4619b 




46b* 

tRCkbb 

46120 

4o4 7 



46 ^2 

ERCKC 

4621b 




4 b*+ 3 

lROKu 

4641b 




4632 

ERCKE 

4646b 




4662 

LRCkF 

4 o 3 3 b 

4057b 

4o60b 


4636 

ERCRG 

4624b 

4o2ob 

4628b 

4630b 

4640 

eRCKh 

463 7b 



*6*1 

lROkI 

4639b 




32o 1 

ERC7 

12660 

3012 

36070 

3613 

3262 

ERbRI v 

14810 

36060 

3866 


3263 

tRF1LE 

14640 

36100 

366 7 


3264 

ERLNIH 

1287 




3663 

lRkEO 

14670 

36120 

3808 


3466 

lRkFLG 

3839 




32b r 

lRT b 

1267 

1269 

1*67 

1511 

3266 

ERTEPT 

12900 

3819 

38490 


3394 

lVNPAK 

2436 




3269 

fail 

49630 

49730 

4 980 


1664 

F F 

3547 




326 7 

F FA 

3269b 




1696 

FFb 

1694b 




32o* 

F F F 

5456 




1693 

FFFA 

1690b 




cb 7 2 

FI 





23 71 

file 

3532 




2367 

F ILEA 

2576b 




2390 

FlLEb 

2566b 




l363 

F I EEC 

2583b 




3 £ 90 

FILES 

2965 

2969 

3643 

3645 

3^. 91 

F I KM 

10610 

1167 

2169 

4987 

1076 

FIKMU 

1079b 




3^.92 

FLAG 

11950 

1205 

12 74 

1300 

1796 

FM 

1799b 

55*3 



1 602 

FMA 

1606b 




1616 

F Mb 

1611b 




1619 

FMC 

1615 b 

1 iObb 




3604 

FNtk 

1123b 

U37B 

1426b 



1636b 

1837b 

18 fob 

1895b 



2040b 

2031b 

2U738 

2128 b 



2261b 

2313b 

2339b 

2362b 



255bb 

2567b 

30306 

3539b 



*409b 

4**3b 

4491b 

4526b 



*7 27b 

4 735b 

4 751b 

4646b 



5065b 

3100b 

5162B 

5193b 

*600 

F NERO 1 





460* 

FNEK02 





3 3*0 

FNEK03 





1429 

FNER04 





1109 

FNER03 





1124 

FNEK06 





4643 

FNER07 





33*7 

F N E K 0 6 





4649 

F NEkU9 





1702 

FNLK10 





1719 

FNER11 





1736 

FNtR 12 





1736 

FNtk 13 





2366 

FNER14 





4006 

FNtR 1 5 





4093 

FNER16 





3031 

FNtk 17 





3939 

F Ntk 16 





1763 

F NEK 19 





3066 

FNEK20 
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1754 

17 79 

1813 

1835 

1854 

1873 

2 i 36 

2152 

2177 

2198 

2219 

2270 

2369 

2409 

2427 

2471 

2555 

25go 

4523 

2967 

4560 

3017 

30330 

3548C 

3610 

3809 

4365 

43740 

4456 

4469C 

44950 

A536C 

5^00 

1327 

1380 

1427 

2581 

2999 

30440 

46940 

14560 

1457 

1461 

3005 

30350 

3846 

1353 

1361 

1368 

1374C 

2972 

29740 

30340 

35040 

35490 

35740 

3611 

3811 

41010 

4176 

4375C 

4470C 

44960 

A505C 


35826 

3999 

3595b 





3914b 






46326 

4634b 





5<c68 






3049 






1303 






1701b 

1914B 

2 i 39b 
2392b 
3546b 
45636 
49556 
5204b 

1718b 
19266 
21556 
2412b 
3661b 
4599b 
49 74b 
5218b 

1 735b 
1938b 

2 1808 
2430b 
3958b 
46036 
4999b 
5221b 

1755B 
1950B 
2201 b 
24748 
40U7B 
46426 
501 56 

17826 

196 IB 
2222 b 
2496b 
4092b 
47078 
5050b 

18168 

1973b 

2273B 

2534B 

A266b 

47158 

50718 



4 ^ 
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161/ PNLkcl 

5101 PNEK22 

5051 PNER 2 A 

1839 PNEk25 

1915 P Ntk26 

2202 F NtK 4 7 

2223 PNLK^b 

1658 P NEKc9 

1677 PNEK30 

1696 PNEK3I 

19^7 PNEK32 

1939 PNtR33 

1931 rNEK 3 a 

19o2 FNEK33 

20A 7 PNEK36 

2032 PNEK37 

2Q/A PNEK36 

4706 PNEK39 

4716 PNEK4U 

4 7<:fa PNEKaI 

4736 PNtKA2 

4 7 32 f NEK43 

197a P NEKaa 

2129 P N E F< 4 3 

2140 PNEKA 6 

2136 PNEK47 

2274 PNER48 

2262 P NtkA9 

2314 PNtK30 

2340 PNEK31 

2363 PNEK32 

2393 PNEK33 

2413 PNEK34 

2431 P NEK33 

2473 PNEK36 

2499 P NEK37 

2333 PNER38 

2359 PNEK59 

3163 PNEK60 

3194 PNEK61 

3205 P NEko2 

3219 INEK63 

3222 PNEK64 

2 i 6 1 PNEK63 

3662 P NEK 66 

3072 PNEK67 

3633 PNEka 3613b 

3662 PNEKb 3860b 

3661 PNEkb5 3604C 3658C 3676 

3677 PNEKC 3834b 

3876 PNEKU 

4293 PNEkOA 

4267 pNEkOu 

3866 PNc.Kl 3863b 

4410 PNEkEl 

3864 PNtkP 1478C 3606C 4292C 

A A4A PNEkPi 

A327 PNEKPA 

3872 PNEKG 3870 

3838 PNEKhP 1500b 

1138 P NtkND 

4975 FNEKPO 4967C 49770 

5000 PNEkbL 4996C 

4492 PNEKkl 

45o4 PNEKk4 

501b PNtKTO 

4956 PNEKT2 


1846 

PR 

5545 









1857 

PRA 

1852b 









1860 

FRb 

1856b 









5130 

FR633 

2258b 

2291b 

2319b 

4795b 






5135 

|-Rb3b5 

5 13uC 

3132 








4468 

P5F 

1886b 

AA26b 








4 A 7 5 

P S F b 5 

44680 

4472 








AA53 

FSF t A 

A455b 









AA64 

FSFEbb 

44520 

44b 1 








AA61 

pSFEC 

445 86 









A A 59 

f SPED 

AA606 









AA52 

PSPEuT 

2895b 

2949b 








4A25 

PSPvv 

3593b 

4379b 








4 A A 3 

P SP WA 

4432b 









44 A 5 

P S F a b 

4442b 









A A A 8 

F SFWd5 

44250 

44a3 


- 






4 A A 1 

F SF WO 

4439b 









AA AO 

FSFKD 

4437b 









45 0 A 

F SK 

1846B 

2403b 

24216 

4480b 






4510 

FSKb5 

45040 

4507 








44 79 

PSRto 

2921b 

3557b 

39136 

3923B 

44536 





4491 

FSRWa 

4486b 









a493 

F SRWb 

4490b 









4500 

F SKWbb 

44790 

4A9 7 








449 7 

F SRWC 

A494b 









aO 16 

PWb 

3961b 









403 1 

PtobA 

4033b 









a047 

FWbb 

4022b 









406 7 

FWbb5 

40180 

4064 








4059 

PtobC 

4034b 

4043b 








4060 

FWdD 

4062b 









4051 

PWbt 

4035b 









4036 

FWbF 

4024b 

4026B 








4039 

PWbG 

4042b 









5360 

FWDF1L 

4471 









5376 

FWDKEC 

4506 









1147 

4419 

3294 

3296 

GEIboC 
GE TKNG 
oG 

GGA 

1136b 

1546b 

5457 

3300b 

1139b 

1909b 

2264B 

22976 

23256 

2465b 

24906 

3600B 

4420b 

5117 

GObUI 

1931b 

2189b 

2207B 

2233b 

2^46b 

2257b 

2290b 

2318b 

2348b 



2396B 

2418b 

2455b 

2479b 

2541B 

2574b 




5120 

bObb TA 

3121b 









5293 

GOFLAU 

991 • 

1034 








475 7 

bOwKAP 

1550b 

1557b 

15646 

1571b 






3757 

VjRNA 

3759b 

3 766b 









48446 

23746 
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3756 GRNADR 2776b 2778b 3323B 3339b 

3763 CRNb 3765b 

3772 GRNB5 3755C 3769 

3768 GRNC 3761b 

4674 HOObF 1993 

5294 I DEN 

3305 II 5459 

3307 1 1A 3310b 

5430 INoDC 1063 1076 

4867 INCbA 4877b 


4874 

iNCbb 

4871b 










4877 

INCbC 

4869b 

4873B 

4875b 








4864 
543 1 

iNCbFR 

INCbNF 

1601b 

1625B 

1636B 

1652b 

1663b 






5399 

INDEX 

2510 

3075 

4816 








5432 

INFIRM 

1064 

10 78 









5433 

1NiDEN 

1062 

1068 

5064 








503o 

1NU 

1313b 

i 543B 

2090B 

2561b 

4845B 

5038B 





5039 

IN1ZA 

5040b 










5048 

i Ni2d 











5056 

INUb5 

5036C 

5053 









5053 

1NI2C 

6049b 










5434 

INULT2 

4937 










5435 

1NUU3 

4946 










5436 

i NOL T0 

4990 










5437 

1 NKAhG 

4419 

4806 

5160 

5178 







5438 

1NRUPT 

5039 










3745 

iNSTAT 

1693B 

1707b 

1 7 11B 

1723b 

1830B 

1849b 

1868b 

1887B 

2120b 

2131b 



214 7b 

2165b 

2193b 

2214b 

2265b 

2298b 

2326B 

2354b 

2384b 

2404B 



2422b 

2466b 

2491b 

2531b 

2549b 

2575b 

3253b 

340 IB 

3509b 

35 18B 



3526b 

3542b 

3579b 

3746b 

3 96 5B 

3996b 

4089b 

4400b 

4428b 

44 b 2B 



4517b 

4554b 

5122b 

5183d 

5203b 






5439 

INST wl 

1416 

1 744 

1770 

1804 

1936 

1959 

3747 

4597 



5440 

1N S T k 2 

1066 

1085 

1 726 

1749 

1773 

180 7 

1942 

1965 

3745 


5441 

iNTASK 





* 






5442 

1N A 11 

1065 

1082 

4829 








5400 

iN2bDC 

3252 

4927 

5037 








5420 

lOktAD 

1043 

2260 

2293 

2321 

2350 

2486 

3505 

4102 



5421 

lOwRII 

1905 

2209 

2380 

2460 

2545 

3575 

3968 

479 7 




4688 iSAkOV 1991 2019 4702 

4689 ISaRMI 

4690 1SARH2 

4691 1SARP 1996C 2061C 2U81C 

4692 ISARS 

4687 15ARIL 

4679 iSATDv 2014 2084 

4750 1SAHH 4753b 

4680 iSATMl 

4681 1 5AT M2 

4682 1SATP 4696C 4697C 

4883 1 SAT S 

4678 iSATFL 

4227 iSti 3269b 4117b 4d52b 

4246 1SbA 4243b 

4250 iSbb 4232b 4234b 4237b 4240b 4245b 

4312 1Sbb5 4227C 4271 

4251 ISbC 4259b 

4257 ISbb 4254b 

4269 ISbb 4265b 

4277 ISbT 4270b 4324b 

4290 iSbC 4255b 

4313 1SbGb5 429GC 4329 

4303 15bh 4301b 

4311 ISblS 4229C 4252 


4310 

1 SdSo 

394 1C 

4115 

4228C 

4251 







3747 

1 ST A f 1 

3748b 










3316 

Jj 

5460 










5295 

jJPl 

3213 

3268 

3285 

3295 

3306 

3324C 

3 3 4 2 C 

3465 

3467 

3485 



3575 










3332 

kK 

5461 










5296 

kKP'I 

3246 

3267 

3 3 2 6 C 

3340C 

34 7 3 

34 75 

3485 

3493 

3505 


366 7 

lAdEL 

1018b 

1040b 

l:>4lb 

1553b 

1560b 

1567b 

1575b 

1595b 

1619b 

1646B 



1673b 

1691b 

1 762b 

1796b 

1627b 

1846b 

1865b 

1884b 

1903b 

1984b 



2106b 

2167b 

2231b 

2286b 

2346b 

2368b 

2435b 

2503b 

2539b 

257 IB 



2595b 

2645b 

2653b 

2661b 

2669b 

2677b 

2685b 

2693B 

27016 

2 7 0 9 B 



2717b 

2 725b 

2 7336 

2741b 

2 750b 

2 783b 

2813b 

2832B 

2860B 

2877b 



2891b 

2981b 

3056B 

3259b 

32 756 

3398b 

3431b 

3491b 

3524b 

3535b 



3555b 

3 564b 

359 IB 

4904b 







5297 

LABEL 1 

1415C 

1472C 

3668C 

3783 

3o2i 

3865 

3962 

3965 

4235 

4277 



4362 

4613 

4o22 

4653 

4902 

5020C 

5184 

5187 



5298 

LAbEL2 

1475C 

3603C 

3624 

4294C 








5401 LChNO 2509 3074 4815 

6402 LCHN1 

5403 LChN2 

6404 UCHN3 

4784 lDdUF 1578b 4764B 4774B 

4786 LDbUFA 4788b 

5299 LENCIH 3501 4099 5131 

5199 LEWIO 2600 5210b 

1011 LEW 15 1002 

5215 LEWS 5171 6233b 

1006 lEVXA 

1403 LEVAb 

2007 lEVXC 

2062 LEVXL 

2079 LEVXt 

4744 L E V X F 

3678 LEVXG 

5209 LEVXH 

5232 l E v X1 

2095 LEVXj 

5448 LINKS 3136 3169 

5558 LIST 2926 

3348 LL 5462 

5451 LNklAb 3137 

4668 LVuC 2005 

1368 MAkfo 1314b 1339b 1347b 1355b 1363b 

1374 mAKwa 1371b 

1040 Ml 

3398 MM 5463 

1254 MObtAO 1238b 1242b 

3055 MOULD 1240b 5 h48 

3063 MGDEDA 3064b 
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3094 

MQDEDb 

3060b 




3134 

MODEDC 

3145b 

3153b 

3155B 

3157b 

3138 

MODEDD 

3160b 




3101 

MODtoE 

3090b 




3150 

MODEDP 

3142b 




3164 

MODEDo. 

3144b 

3146 



3169 

MODEDM 

3 1 65d 




3170 

MOOED 1 

323bb 

3255b 

3L71B 

3280b 



3344b 

3586b 

3404b 

3427b 



3551b 

3560b 

3563b 

3596b 

3110 

MODEL) J 

3125b 

3127b 

545 6 


3117 

MOUlDK 

3115b 




312 6 

MOOEDL 

3122b 




1440 

MODEE 

1222 b 




3642 

MODEF 

1224b 




3647 

MGUtFA 

3644b 




3646 

MODEFb 

3646b 




1036 

MODE 1 

1226 b 




1046 

MODt IA 

1047b 




1061 

MODE 1 b 

1129b 




1068 

MOolIC 

1069b 




10ti5 

MOuE ID 

1075b 

10666 



1127 

MOUEIL 

1073b 

1095b 

1112 b 

1141 

1 141 

MODE IF 

1057 



1 1 10 

MODt 1 G 

U07b 




1116 

MODE I Fi 

1097b 




1116 

MODE 1 I 

1122 b 




1096 

MODE 1 J 

1069b 




1466 

MODEP 

1230b 




1267- 

MODEKw 

1244b 

1246b 



1446 

MOD tX 

1234b 




1460 

MODEL 

1236b 




1461 

MODElA 

1462b 




1463 

MOutZb 

1456b 




1469 

MPA 

1513b 




1611 

MPb 

1506b 

1507 



1614 

MPDONt 

1471b 




6349 

MSaBRT 

4302 




6 360 

MSbY I t 

4339 




6361 

MSCHAiM 

1036 




6362 

mSDEnS 

1067 

1091 

1093 

1094 

6363 

MSDOWN 

1090 

1092 



5364 

MStOI 

3166 

3647 

5142 


6366 

MbthK 

3013 




5356 

mSFILL 

3021 

3648 



5357 

M5F1Rm 

1154C 

116 1C 

1166 


5 34 5 

MShE mD 

3661 




5358 

MSjNvL 

1249 




5359 

MSlb 

4346 




53o0 

MSL1NK 

3134 




53bl 

M5M0DE 

2996 




5 336 

MSNAME 

993 




5362 

MSNEXT 

1193 




5363 

MSMRl 1 

1116 

1116 



5364 

MbPARA 

3110 




5365 

MbPA kM 

3439 




5366 

MbPAbb 

3004 




5 36 7 

MbPE 

1101 

1103 



5368 

MSgLPS 

1460 




5369 

MbRTC 

997 




5 37 0 

MSKTkV 

4265 

466 1 



5371 

Mbbb 

4343 




5372 

MbblAT 

3601 





MT0b3 

1 

5575 



5300 

MX AD 

2775C 

3322C 

3336C 

3760 

1260 

MZ 1P 

1246b 




2 981 

MDPb 

2954b 

2962b 

29 70b 

4246b 

1163 

NEXT 

1201 b 

1250b 

1332b 

1441b 

1166 

NEXT a 

1192b 




1199 

NEXT b 

1198b 




1190 

nExTC 

1301b 




1206 

NtXTt 

1202 b 




1300 

NEXT F 

1220 b 



* 

1311 

NtXl G 

1304b 

1312b 



131b 

nEXTH 

1315 




1214 

NEXT I 

1211 b 




1214 

NExl J 

1209b 




12a9 

mEXI k 

1213b 




3406 

NN 

5464 




3420 

NNA 

3416b 




5366 

NOPtR 

4146 

2164 



5396 

normal 

1311 

1685 

2595 

2460 

54u5 

NO TL b T 

2529 

3103 

4827 


5301 

nT bT 

3263C 

3566C 

3 949C 

4083C 

5302 

NULL 

1267 

4684 

4707 

5041 

5303 

uFbUK 

1 5 6 6 C 

1604C 

1 o28C 

1655C 

5 30h 

uFbLI a 

1565C 

1603C 

16 2 7 C 

1653C 

4126 

oNEb 

L 6 4 7 b 

2655b 

2663b 

2671b 



2727B 

l 735b 

2992b 


4133 

uNtba 

4138 




4134 

uNtbb 

4127C 




4 170 

ONEbbb 

4 131C 

4167 



4135 

oNEbC 

4 129 C 




4154 

ONc.bD 

4145b 

4149b 



4155 

ONEbt 

4159 




a1 56 

uNtbF 

413GC 




4163 

uNtbG 

4140 

4161 



4167 

uNtbh 

4146b 

4164b 



3431 

00 

5465 




5423 

uT CGnF 

1311 

1685 

2375 

2395 

5424. 

UTCON r 

1 706 

2035 

250 6 

2509 



2 52 7 

2526 

2529 

3073 



3066 

3094 

3095 

3096 



4615 

46 16 

46 16 

4819 



4b27 

4927 

5037 

5216 

542 5 

uTKGP I 

1536 

2026 

2 57 3 

2607 

5426 

OTbTwl 

2111 

2142 

2158 


54c 7 

u T b 1 a 2 

2113 

2160 



542 © 

oTTAbM 

1544 

1699 

1 740 

1764 



2 191 

2211 

2262 

2295 



3026 

3 50 7 

353 7 

3 5 77 



4 543 

4578 

4601 

5120 

5112 

PCn 

1226 b 





3l 906 3301b 3311B 3319b 332bb 
3435b 3478b 3487b 35146 3620b 
31» 3 7 b 


1102 1104 1106 1117 1119 


l4A6b 1609b 1614 3660b 3767 


3063 





4307b 

5554 

1679C 

4 76oC 

4803 



16 7 8 C 

4765C 

4796 



2 o 79b 

2687b 

c695b 

2703B 

2711b 


2419 

2456 

2480 

3063 

4799 

2510 

2515 

2522 

2523 

2524 

3o74 

3075 

3084 

3085 

3066 

3097 

3101 

3102 

3103 

3252 

4620 

4821 

4822 

4823 

4825 

2611 

2984 

3055 

4368 

4459 

1796 

1907 

1932 

1955 

2146 

2523 

2352 

l382 

2462 

2488 

3990 

4104 

4376 

4398 

4471 


33366 

36316 


1120 


51136 


27196 


2525 

3087 

4808 

4826 

4541 


2547 

4506 
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5303 PFLAg 1469 1305 37 68 3791 

^334 H I 3b 4328b 

4339 PlbbA 4336B 

4357 Hlbbbb 433^C 4334 

4673 PLVL 2032C 2058C 4 700 

3439 HP 3466 

3466 PPA 3464 

3474 HPb 3472 

1166 HRhbG llb6b 

3306 PThN 3118 3129C 3130 3286 3^25C 3438 3936C 4020 

49U3 i*L 

4927 u*LT A 492ob 

4923 uLTAA 3009b 

3032 uLTb5 4901C 5o21 

4930 wLIC 4926b 

4937 OLTL 4938b 

4943 OLIE 4932b 4946b 

4932 UL'IF 4941b 

3307 oLOLG 4911C 4923 4930 3013 

4961 u/L IG 493^-b 

4971 sj L 7 h 4979b 

3308 uLII 4 9 4 0 C 4948C 4961 

4976 uLfj 4972b 

4990 oiLIK 4991b 

3004 oLTL 4936b 4937b 4981b 4986b 4989b 4994b 3026 

3017 uLIh 3014b 

4901 *LrhUN 1168b 1433b 

3026 uiLT 7 H 4920 

3482 uGi 346 7 

3309 K3hOLD 1302 3777C 

3310 RARAbK 3736 376aC 

3311 kAimBUM 2898 2904 

3312 A A AGE 2279 2299 23c/ 3624 4<ti9 4846 3160 31 7a 

3234 KbUl- cZbl 2260 2276 2293 2303 2321 2329 2330 2484 2486 

2637 2 766 2 788 2863 3045 3301 <*09 7 4137 4214 4804 

4831 3131 3296 

3362 KtALK) llbc 2293 2323 2486 3307 4104 

3386 KEALKv 2191 

1172 KtblKl 992b 3387b 3795 

1034 kEbUht 3676 

3361 KtVf-lL 1935 4543 

3379 kEVKLC 1932 4378 

33 76 KtwIiNiU 1699 1 740 3028 3537 5120 

4174 KtU 2743b 2752b 

4173 kLoA 4193 

4165 kLBB 4163b 

4223 RL0b3 4174C 4220 

4192 KLUC 41 6 5 C 

4211 KLOb 4202b 4206b 

4212 KLbt 4216 

4213 RLOF 4186C 


4220 

kLuo 

419 7 

4203b 

4218 








3313 

rng 

1549C 

1336C 

1563C 

1570C 

1399C 

1606C 

1611C 

1623C 

1630C 

I 634 C 



1637C 

1636C 

1649C 

1657C 

1 66 1 C 

1676C 

2459C 

2483C 

3 116C 

3117 



3126C 

3231 

3288 

3299 

3309 

3420C 

3452 

3482 

3505 

3575 



3936C 

3988 

4032 

4041 

4034 

4 0 7 2 C 

4102 

4256 

4833 

48^5 

5314 

RNgFLg 

11 9<+C 

3114 

3124C 

4616 








1962 kP 5549 

1992 KPb 1994b 


2102 KPbo 1962C 2098 

2001 kPC 2067b 

20x7 RPD 2013b 

2021 KPL 2016b 

2025 KPF 2066b 

2026 kPFA 2029b 

20^6 kPj 2042b 

2033 kPK 2049b 

2063 APKl 2060 4743b 

2073 KPK2 2071b 

20o0 RPK3 2076b 

2089 KPfo 


2086 

RPR 

2026b 

20<*0b 

2044B 

20536 

2035b 






2096 

KPU 

2091 










2101 

KPK3 

1983C 

2045 

2050 

2072 

2089 

4706 

4714 

4726 

4 734 

47s>o 

3807 

RPR T 

4319b 









3491 

RR 

5466 










3301 

RRA 

3495C 










3505 

RRb 

3506b 










3 50 7 

ARC 

3 5 06b 










3312 

RRb 

3496 










4071 

kREC 

2249b 

2635b 

2d 17B 

2663b 

4153b 

42 12b 





4095 

RRECb 

4091b 










4122 

RRECb5 

4065C 

4119 









4101 

RRELBA 

*0968 










4097 

RRECbb 

4073C 










4102 

kRECC 

4103b 










4104 

RRECb 

4105b 










3683 

RSlT 

4279b 

4281b 

4284B 

4266b 







3906 

RT 2 

3539 

3331 









3908 

AT 4 

2241 

2252 

3264 

3496 

3569 

4282 

4303 

4656 

4759 


3910 

R15 

2616 

2793 

2843 

4137 

4194 






3916 

RT5B3 

3910C 

3915 









3920 

R16 

2636 

2620 

2 066 

4156 

4cl5 






3927 

RT6b3 

3920C 

3924 









1028 

kTCFA 











3673 

RTCFC 

1011 










5315 

ATCH2 

996 

1020 









5316 

RTCR 

3897C 

4297C 

4298 








3665 

ATCNb 











5317 

AT F L 

3866C 

3899C 

4295 

4643 







3316 

RTkR 

3265C 

4760C 

3499C 

3570C 

3889b 

3943C 

4 0 7 7 C 

4263 

4304C 

4652b 

4659 

5319 

RTRY 

1590C 

1614C 

lo41C 

1668C 

l6a3C 

3262C 

3497C 

3 5 6 7 C 

3890b 

3945C 



4079C 

4662b 

4 762C 

4772C 






1691 

AW 

5541 










1704 

RWA 

1700b 










1707 

RWAA 

1709b 






2987b 




3729 

RWAU 

2623b 

2802b 

2650b 

2679b 

2935b 

2935b 

3036b 

39778 

4144B 



4201B 

4241b 

43706 







3741 

RWAUZ 

3733b 

3736B 

3 7396 








1718 

RWB 

1713b 










1723 

RWC 

1717b 

17 2 3 B 









1726 

AWCC 

1727b 
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1735 K ViU 1730b 

1740 KWE lo95b 1734b 1741b 

1744 kWF 1745b 

1749 kWPF 1750b 

17 55 kWG 17 4 fa b 

1756 KWh 1754b 

*106 6 A 5550 

5490 faAlOdV *596 

5491 oAIOmI 

5492 oAlOhE 

5493 bAiOP *601C 

5494 5A10S 

5469 faAlO i L 

5499 SA15UV 1004 1396 2093 

5 500 5 A15 Pi 1 

55ul bA15h* 

5502 5A15P 1003C 1389C 2092C 367 7C 

5503 bA15b 

5496 bA157 L 

5461 bA5bV 1013 5169 

5462 bA5hi 

5463 bA5Fi* 

5464 bA5P 1012C 51 7 2 C 

5465 dA5S 

5460 bA57L 

*111 bAA 2112b 

*118 bAb 2114b 

2126 bAC 212 3b 

2131 bAb 2127b 

2139 bAE 2134b 

*14* bAF 213bb 2ln3b 

2156 bAG 2154b 2159b 

2155 bAh 2150b 

2160 3A1 2161b 

21bO oAj 2175b 

2174 bAk 2166b 2171b 

*175 bAL 2173b 

53*0 bAVLl 4664C 4676 

*167 jB 2179b 

*201 bbA 2196b 

2207 bbb 2200b 2210b 

2211 6bC 2212b 

2222 3bU 2217b 

2*31 oC 2221b 

2*60 bCA 2261b 

2*o2 bCo 2263b 

2273 bCC 2266b 

2276 bCb 2272b 

2 * o1 bCE 2276b 

*257 bCf- 2253 

5406 bCkbY 2527 3101 4625 

*266 3l) 2260 b 

2293 bDA 2294b 

2295 bL>6 2296b 

2313 bBC 2301b 2305b 2306B 

2316 bDO *312b 
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